view release on metacpan or  search on metacpan

bin/findorule  view on Meta::CPAN

            eval "require File::Find::Object::Rule::$name";
        },
        in => $dir
    );
}

# what directories are we searching in?
my @where;
while (@ARGV)
{
    local $_ = shift @ARGV;
    if (/^-/)
    {
        unshift @ARGV, $_;
        last;
    }
    push @where, $_;
}

# parse arguments, build a rule object
my $rule = new File::Find::Object::Rule;