view release on metacpan or  search on metacpan

lib/App/perlfind.pm  view on Meta::CPAN

35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
        }
        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;
    print "perlfind v$VERSION, ";
    $self->SUPER::opt_V(@_);
}
 
1;
__END__
 
=pod
 
=head1 NAME
 
App::perlfind - A more knowledgeable perldoc