📁 File Manager Pro
v10.0.3 | PHP: 7.4.15
Server: Apache/2.4.25 (Debian)
2026-07-02 01:39:54
📂
/ (Root)
/
usr
/
share
/
perl
/
5.24.1
📍 /usr/share/perl/5.24.1
🔄 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