1use strict; 2use warnings; 3use Test::More tests => 6; 4BEGIN { use_ok 'director_ignore' } 5require_ok 'director_ignore'; 6 7{ 8 package DIgnoresDerived; 9 use base 'director_ignore::DIgnores'; 10 sub PublicMethod1 { 11 return 18.75; 12 } 13} 14{ 15 package DAbstractIgnoresDerived; 16 use base 'director_ignore::DAbstractIgnores'; 17} 18 19my $a = DIgnoresDerived->new(); 20isa_ok $a, 'DIgnoresDerived'; 21is $a->Triple(5), 15; 22 23my $b = DAbstractIgnoresDerived->new(); 24isa_ok $b, 'DAbstractIgnoresDerived'; 25is $b->Quadruple(5), 20; 26