Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more
1234567891011 package File::Find::Object::Rule::Test::ATeam;use strict;use File::Find::Object::Rule;use base 'File::Find::Object::Rule';sub File::Find::Object::Rule::ba { my $self = shift()->_force_object; $self->exec( sub { die "I pity the fool who uses this in production" });}1;
package
File::Find::Object::Rule::Test::ATeam;
use
strict;
File::Find::Object::Rule;
base
'File::Find::Object::Rule'
;
sub
File::Find::Object::Rule::ba {
my
$self
=
shift
()->_force_object;
->
exec
(
{
die
"I pity the fool who uses this in production"
});
}
1;