6 use lib "$FindBin::Bin/lib";
7 use Test::More tests => 10;
10 ok( !InheritanceParent->can('foo'),
11 'function removed in parent' );
12 ok( InheritanceParent->can('bar'),
13 'method still in parent' );
14 is( InheritanceParent->bar, 23,
15 'method works, function still bound' );
16 ok( !Inheritance->can('baz'),
17 'function removed in subclass' );
18 ok( Inheritance->can('qux'),
19 'method still in subclass' );
20 ok( !Inheritance->can('foo'),
21 'parent function not available in subclass' );
22 ok( Inheritance->can('bar'),
23 'parent method available in subclass' );
24 is( Inheritance->bar, 23,
25 'parent method works in subclass' );
26 is( Inheritance->qux, 23,
27 'subclass method calls to parent work' );