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