|
Packit |
4c8e34 |
use strict;
|
|
Packit |
4c8e34 |
use warnings;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
use Test::More tests => 3;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
use MRO::Compat;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
{
|
|
Packit |
4c8e34 |
package Foo;
|
|
Packit |
4c8e34 |
our @ISA = qw//;
|
|
Packit |
4c8e34 |
}
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
my $f_gen = mro::get_pkg_gen('Foo');
|
|
Packit |
4c8e34 |
ok($f_gen > 0, 'Foo pkg_gen > 0');
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
{
|
|
Packit |
4c8e34 |
no warnings 'once';
|
|
Packit |
4c8e34 |
*Foo::foo_func = sub { 123 };
|
|
Packit |
4c8e34 |
}
|
|
Packit |
4c8e34 |
my $new_f_gen = mro::get_pkg_gen('Foo');
|
|
Packit |
4c8e34 |
ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for methods');
|
|
Packit |
4c8e34 |
$f_gen = $new_f_gen;
|
|
Packit |
4c8e34 |
|
|
Packit |
4c8e34 |
@Foo::ISA = qw/Bar/;
|
|
Packit |
4c8e34 |
$new_f_gen = mro::get_pkg_gen('Foo');
|
|
Packit |
4c8e34 |
ok($new_f_gen > $f_gen, 'Foo pkg_gen incs for @ISA');
|
|
Packit |
4c8e34 |
|