1package File::Find::Object::Rule::Test::ATeam;
2use strict;
3use File::Find::Object::Rule;
4use base 'File::Find::Object::Rule';
5
6sub File::Find::Object::Rule::ba
7{
8    my $self = shift()->_force_object;
9    $self->exec( sub { die "I pity the fool who uses this in production" } );
10}
11
121;
13