ACIL FM
Dark
Refresh
Current DIR:
/home/.cpan/build/Test-LeakTrace-0.17-0/example
/
home
.cpan
build
Test-LeakTrace-0.17-0
example
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
callback.pl
214 B
chmod
View
DL
Edit
Rename
Delete
leaked_refs.pl
185 B
chmod
View
DL
Edit
Rename
Delete
leaktrace.t
332 B
chmod
View
DL
Edit
Rename
Delete
method_cache.pl
192 B
chmod
View
DL
Edit
Rename
Delete
script.pl
157 B
chmod
View
DL
Edit
Rename
Delete
simple.pl
130 B
chmod
View
DL
Edit
Rename
Delete
test_fail.pl
148 B
chmod
View
DL
Edit
Rename
Delete
weakref.pl
411 B
chmod
View
DL
Edit
Rename
Delete
Edit file: /home/.cpan/build/Test-LeakTrace-0.17-0/example/weakref.pl
#!perl -w use strict; use Test::More tests => 1; use Test::LeakTrace qw(:test); { package X; use Scalar::Util qw(weaken); sub new{ my($class) = @_; my $self = bless {}, $class; return $self; } sub set_other{ my($self, $other) = @_; weaken($self->{other} = $other) if $other; return $self; } } no_leaks_ok{ my $a = X->new; my $b = X->new; $a->set_other($b); $b->set_other($a); };
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply