4 use Test::More tests => 5;
19 ok(!Child->can('extends'), "extends keyword is unimported");
20 ok(!Class->can('extends'), "extends keyword is unimported");
26 sub extends { "good" }
31 ok(!Foo->can('has'), "has keyword is unimported");
33 local $TODO = "fixing this may require a Sub::Identify dep";
34 ok(Foo->can('extends'), "extends method is NOT unimported");
35 is(eval { Foo->extends }, "good", "extends method is ours, not the extends keyword");