XYZ File Manager
Current Path:
/usr/lib/x86_64-linux-gnu/perl-base
usr
/
lib
/
x86_64-linux-gnu
/
perl-base
/
📁
..
📄
AutoLoader.pm
(5.36 KB)
📁
Carp
📄
Carp.pm
(24.8 KB)
📄
Config.pm
(3.14 KB)
📄
Config_git.pl
(409 B)
📄
Config_heavy.pl
(54.46 KB)
📄
Cwd.pm
(16.62 KB)
📄
DynaLoader.pm
(11 KB)
📄
Errno.pm
(4.8 KB)
📁
Exporter
📄
Exporter.pm
(2.28 KB)
📄
Fcntl.pm
(2.05 KB)
📁
File
📄
FileHandle.pm
(2.06 KB)
📁
Getopt
📁
Hash
📁
IO
📄
IO.pm
(469 B)
📁
IPC
📁
List
📄
POSIX.pm
(19.91 KB)
📁
Scalar
📄
SelectSaver.pm
(344 B)
📄
Socket.pm
(13.5 KB)
📄
Symbol.pm
(2.15 KB)
📁
Text
📁
Tie
📄
XSLoader.pm
(4.02 KB)
📄
attributes.pm
(3 KB)
📁
auto
📄
base.pm
(8.7 KB)
📄
builtin.pm
(210 B)
📄
bytes.pm
(489 B)
📄
bytes_heavy.pl
(758 B)
📄
constant.pm
(5.6 KB)
📄
feature.pm
(7.38 KB)
📄
fields.pm
(4.89 KB)
📄
integer.pm
(172 B)
📄
lib.pm
(2.23 KB)
📄
locale.pm
(3.37 KB)
📄
overload.pm
(4.39 KB)
📄
overloading.pm
(964 B)
📄
parent.pm
(460 B)
📄
re.pm
(9.33 KB)
📄
strict.pm
(1.57 KB)
📁
unicore
📄
utf8.pm
(341 B)
📄
vars.pm
(1.12 KB)
📁
warnings
📄
warnings.pm
(28.97 KB)
Editing: parent.pm
package parent; use strict; our $VERSION = '0.238'; 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"}, @_; # dies if a loop is detected }; }; 1; __END__
Upload File
Create Folder