1 files changed, 11 insertions, 0 deletions
diff --git a/testdir/lib/File/Find/Rule/Test/ATeam.pm b/testdir/lib/File/Find/Rule/Test/ATeam.pm
new file mode 100644
index 0000000..87e6630
--- /dev/null
+++ b/testdir/lib/File/Find/Rule/Test/ATeam.pm
@@ -0,0 +1,11 @@
+package File::Find::Rule::Test::ATeam;
+use strict;
+use File::Find::Rule;
+use base 'File::Find::Rule';
+
+sub File::Find::Rule::ba {
+    my $self = shift()->_force_object;
+    $self->exec( sub { die "I pity the fool who uses this in production" });
+}
+
+1;