ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-MRO-Compat/t
/
usr
share
doc
perl-MRO-Compat
t
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
10basic.t
1.16 MB
chmod
View
DL
Edit
Rename
Delete
15pkg_gen.t
485 B
chmod
View
DL
Edit
Rename
Delete
20mros.t
2.22 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-MRO-Compat/t/15pkg_gen.t
use strict; use warnings; use Test::More tests => 3; use MRO::Compat; { package Foo; our @ISA = qw//; } my $f_gen = mro::get_pkg_gen('Foo'); ok($f_gen > 0, 'Foo pkg_gen > 0'); { no warnings 'once'; *Foo::foo_func = sub { 123 }; } my $new_f_gen = mro::get_pkg_gen('Foo'); ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for methods'); $f_gen = $new_f_gen; @Foo::ISA = qw/Bar/; $new_f_gen = mro::get_pkg_gen('Foo'); ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for @ISA');
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply