1 files changed, 24 insertions, 0 deletions
diff --git a/t/driver/F.pm b/t/driver/F.pm
new file mode 100644
index 0000000..e7592d6
--- /dev/null
+++ b/t/driver/F.pm
@@ -0,0 +1,24 @@
+package F;
+
+# This is a driver with a faked ->isa
+
+use strict;
+
+use vars qw{$VERSION};
+BEGIN {
+	$VERSION = '0.01';
+}
+
+sub isa {
+	my $class = shift;
+	my $parent = shift;
+	if ( defined $parent and ! ref $parent and $parent eq 'A' ) {
+		return !!1;
+	} else {
+		return !1;
+	}
+}
+
+sub dummy { 1 }
+
+1;