App-perlfind
view release on metacpan or search on metacpan
lib/App/perlfind.pm view on Meta::CPAN
353637383940414243444546474849505152535455565758596061
}
if
(
@matches
) {
push
@new_pages
,
@matches
;
}
else
{
# pass through; maybe someone higher up knows what to do
# with it
push
@new_pages
,
$page
;
}
}
$self
->SUPER::grand_search_init(\
@new_pages
,
@found
);
}
sub
opt_V {
my
$self
=
shift
;
"perlfind v$VERSION, "
;
$self
->SUPER::opt_V(
@_
);
}
1;
__END__
=pod
=head1 NAME
App::perlfind - A more knowledgeable perldoc
( run in 0.280 second using v1.01-cache-2.11-cpan-454fe037f31 )