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