1*b39c5158Smillertuse strict; 2*b39c5158Smillertuse warnings; 3*b39c5158Smillert 4*b39c5158Smillertuse Test::More tests => 5; 5*b39c5158Smillert 6*b39c5158Smillertmy $parent_class = 'File::Fetch'; 7*b39c5158Smillertmy $child_class = 'File::Fetch::Subclass'; 8*b39c5158Smillert 9*b39c5158Smillertuse_ok( $parent_class ); 10*b39c5158Smillert 11*b39c5158Smillertmy $ff_parent = $parent_class->new( uri => 'http://example.com/index.html' ); 12*b39c5158Smillertisa_ok( $ff_parent, $parent_class ); 13*b39c5158Smillert 14*b39c5158Smillertcan_ok( $child_class, qw( new fetch ) ); 15*b39c5158Smillertmy $ff_child = $child_class->new( uri => 'http://example.com/index.html' ); 16*b39c5158Smillertisa_ok( $ff_child, $child_class ); 17*b39c5158Smillertisa_ok( $ff_child, $parent_class ); 18*b39c5158Smillert 19*b39c5158SmillertBEGIN { 20*b39c5158Smillert package File::Fetch::Subclass; 21*b39c5158Smillert use vars qw(@ISA); 22*b39c5158Smillert unshift @ISA, qw(File::Fetch); 23*b39c5158Smillert } 24