Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-MRO-Compat
/
t
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
10basic.t
1.16 KB
-rw-r--r--
2017-03-28 22:50:14
Edit
Del
15pkg_gen.t
485 B
-rw-r--r--
2017-03-28 22:50:14
Edit
Del
20mros.t
2.22 KB
-rw-r--r--
2017-03-28 22:50:14
Edit
Del
Editing: 15pkg_gen.t
(485 B)
Path: /usr/share/doc/perl-MRO-Compat/t/15pkg_gen.t
Back
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');