/usr/share/perl5/File/Wildcard/Find.pm is in libfile-wildcard-perl 0.11-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 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 62 63 64 65 66 67 | package File::Wildcard::Find;
use strict;
BEGIN {
use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $finder);
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw(findbegin findnext findall);
@EXPORT_OK = qw(findbegin findnext findall $finder);
%EXPORT_TAGS = ( all => \@EXPORT_OK );
}
use File::Wildcard;
sub findbegin {
$finder = File::Wildcard->new( path => shift );
}
sub findnext {
$finder->next;
}
sub findall {
my $allfinder = File::Wildcard->new( path => shift );
$allfinder->all;
}
1;
__END__
=head1 NAME
File::Wildcard::Find - Simple interface to File::Wildcard
=head1 SYNOPSIS
use File::Wildcard::Find;
findbegin( "/home/me///core");
while (my $file = findnext()) {
unlink $file;
}
=head1 DESCRIPTION
L<File::Wildcard> provides a comprehensive object interface that allows you
to do powerful processing with wildcards. Some consider this too unwieldy for
simple tasks.
The module File::Wildcard::Find provides a straightforward interface. Only a
single wildcard stream is accessible, but this should be sufficient for
one liners and simple applications.
=head1 FUNCTIONS
=head2 findbegin
This takes 1 parameter, a path with wildcards as a string. See
L<File::Wildcard> for details of what can be passed.
=head2 findnext
Iterator that returns successive matches, then undef.
=head2 findall
Returns a list of all matches
|