D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
usr
/
share
/
doc
/
perl-MRO-Compat
/
t
/
Filename :
15pkg_gen.t
back
Copy
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');
Name
Size
Last Modified
Owner
Permissions
Actions
10basic.t
1.157
KB
March 28 2017 10:50:14
root
0644
15pkg_gen.t
0.474
KB
March 28 2017 10:50:14
root
0644
20mros.t
2.222
KB
March 28 2017 10:50:14
root
0644
2017 © D7net | D704T team