ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/Capture-Tiny-0.48-0/t/lib
/
home
.cpan
build
Capture-Tiny-0.48-0
t
lib
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
Cases.pm
8.88 MB
chmod
View
DL
Edit
Rename
Delete
TieEvil.pm
730 B
chmod
View
DL
Edit
Rename
Delete
TieLC.pm
816 B
chmod
View
DL
Edit
Rename
Delete
Utils.pm
1.12 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/Capture-Tiny-0.48-0/t/lib/TieEvil.pm
package TieEvil; # FCGI tied with a scalar ref object, which breaks when you # call open on it. Emulate that to test the workaround: use Carp (); sub TIEHANDLE { my $class = shift; my $fh = \(my $scalar); # this is evil and broken return bless $fh,$class; } sub EOF { 0 } sub TELL { length ${$_[0]} } sub FILENO { -1 } sub SEEK { 1 } sub CLOSE { 1 } sub BINMODE { 1 } sub OPEN { Carp::confess "unimplemented" } sub READ { $_[1] = substr(${$_[0]},$_[3],$_[2]) } sub READLINE { "hello world\n" } sub GETC { substr(${$_[0]},0,1) } sub PRINT { my ($self, @what) = @_; my $new = join($\, @what); $$self .= $new; return length $new; } sub UNTIE { 1 }; # suppress warnings about references 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