1package F; 2 3# This is a driver with a faked ->isa 4 5use strict; 6 7use vars qw{$VERSION}; 8BEGIN { 9 $VERSION = '0.01'; 10} 11 12sub isa { 13 my $class = shift; 14 my $parent = shift; 15 if ( defined $parent and ! ref $parent and $parent eq 'A' ) { 16 return !!1; 17 } else { 18 return !1; 19 } 20} 21 22sub dummy { 1 } 23 241; 25