Blame t/lib/File/Find/Object/Rule/Test/ATeam.pm
|
Packit |
26bf30 |
package File::Find::Object::Rule::Test::ATeam;
|
|
Packit |
26bf30 |
use strict;
|
|
Packit |
26bf30 |
use File::Find::Object::Rule;
|
|
Packit |
26bf30 |
use base 'File::Find::Object::Rule';
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
sub File::Find::Object::Rule::ba {
|
|
Packit |
26bf30 |
my $self = shift()->_force_object;
|
|
Packit |
26bf30 |
$self->exec( sub { die "I pity the fool who uses this in production" });
|
|
Packit |
26bf30 |
}
|
|
Packit |
26bf30 |
|
|
Packit |
26bf30 |
1;
|