view release on metacpan or  search on metacpan

lib/File/RDir.pm  view on Meta::CPAN

our @EXPORT = qw();

sub new {
    my $pkg = shift;
    my ($root, $opt) = @_;
    $root =~ s{\\}'/'xmsg;

    my @PList;

    if (ref($opt) eq 'HASH' and defined($opt->{'prune'})) {
        for (split m{;}xms, $opt->{'prune'}) {
            my ($item, $mod) = m{\A ([^:]*) : ([A-Z]*)\z}xmsi ? ($1, $2) : ($_, '');

            my $rstring = '';

            for my $frag (split m{([\*\?])}xms, $item) {
                if ($frag eq '*') {
                    $rstring .= '.*?';
                }
                elsif ($frag eq '?') {
                    $rstring .= '.';
                }
                else {
                    $rstring .= quotemeta($frag);
                }
            }