use Test::More tests => 3;
-BEGIN {
- use lib 'opt', '../opt', '../blib/lib';
- use_ok('c3');
-}
+BEGIN { use_ok('Class::C3::XS') }
=pod
{
package A;
- use c3;
sub foo {
return 'A::foo';
{
package B;
use base 'A';
- use c3;
sub foo {
my $code = sub {
}
}
-Class::C3::initialize();
-
is(B->foo, "B::foo => A::foo",
'method resolved inside anonymous sub');