📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 02:17:14
📂
/ (Root)
/
usr
/
lib
/
x86_64-linux-gnu
/
perl-base
📍 /usr/lib/x86_64-linux-gnu/perl-base
🔄 Refresh
✏️
Editing: parent.pm
Read Only
package parent; use strict; use vars qw($VERSION); $VERSION = '0.234'; sub import { my $class = shift; my $inheritor = caller(0); if ( @_ and $_[0] eq '-norequire' ) { shift @_; } else { for ( my @filename = @_ ) { s{::|'}{/}g; require "$_.pm"; # dies if the file is not found } } { no strict 'refs'; push @{"$inheritor\::ISA"}, @_; }; }; "All your base are belong to us" __END__
💾 Save Changes
❌ Cancel