1use strict; 2use warnings; 3use Test::More tests => 13; 4BEGIN { use_ok('director_abstract') } 5require_ok('director_abstract'); 6 7{ 8 package MyFoo; 9 use base 'director_abstract::Foo'; 10 sub ping { 11 return 'MyFoo::ping()'; 12 } 13} 14 15my $f = MyFoo->new(); 16 17is($f->ping, "MyFoo::ping()"); 18 19is($f->pong(),"Foo::pong();MyFoo::ping()"); 20 21{ 22 package MyExample1; 23 use base 'director_abstract::Example1'; 24 sub Color { my($self, $r, $g, $b) = @_; 25 return $r; 26 } 27} 28{ 29 package MyExample2; 30 use base 'director_abstract::Example2'; 31 sub Color { my($self, $r, $g, $b) = @_; 32 return $g; 33 } 34} 35{ 36 package MyExample3; 37 use base 'director_abstract::Example3_i'; 38 sub Color { my($self, $r, $g, $b) = @_; 39 return $b; 40 } 41} 42 43my $me1 = MyExample1->new(); 44isa_ok($me1, 'MyExample1'); 45is(director_abstract::Example1::get_color($me1, 1, 2, 3), 1, 'me1'); 46 47my $me2 = MyExample2->new(1,2); 48isa_ok($me2, 'MyExample2'); 49is(director_abstract::Example2::get_color($me2, 1, 2, 3), 2, 'me2'); 50 51my $me3 = MyExample3->new(); 52isa_ok($me3, 'MyExample3'); 53is(director_abstract::Example3_i::get_color($me3, 1, 2, 3), 3, 'me3'); 54 55eval { $me1 = director_abstract::Example1->new() }; 56like($@, qr/\babstract\b/i, 'E1.new()'); 57 58eval { $me2 = director_abstract::Example2->new() }; 59like($@, qr/Example2/, 'E2.new()'); 60 61eval { $me3 = director_abstract::Example3_i->new() }; 62like($@, qr/\babstract\b/i, 'E3.new()'); 63