ACIL FM
Dark
Refresh
Current DIR:
/usr/share/perl5/vendor_perl/Test/Tester
/
usr
share
perl5
vendor_perl
Test
Tester
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
Capture.pm
4.32 MB
chmod
View
DL
Edit
Rename
Delete
CaptureRunner.pm
1.27 MB
chmod
View
DL
Edit
Rename
Delete
Delegate.pm
571 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/perl5/vendor_perl/Test/Tester/Delegate.pm
use strict; use warnings; package Test::Tester::Delegate; our $VERSION = '1.302183'; use Scalar::Util(); use vars '$AUTOLOAD'; sub new { my $pkg = shift; my $obj = shift; my $self = bless {}, $pkg; return $self; } sub AUTOLOAD { my ($sub) = $AUTOLOAD =~ /.*::(.*?)$/; return if $sub eq "DESTROY"; my $obj = $_[0]->{Object}; my $ref = $obj->can($sub); shift(@_); unshift(@_, $obj); goto &$ref; } sub can { my $this = shift; my ($sub) = @_; return $this->{Object}->can($sub) if Scalar::Util::blessed($this); return $this->SUPER::can(@_); } 1;
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply