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