view release on metacpan or  search on metacpan

lib/Stable/Module.pm  view on Meta::CPAN

            my @char = $_[0] =~ m{\G ($re_char) }oxmsg;
            if ($char[-1] =~ m{ \x5C \z}oxms) {
                return 1;
            }
        }
    }
    return undef;
}

#---------------------------------------------------------------------
sub _first(&@) {
    my $coderef = shift @_;
    for (@_) {
        if ($coderef->()) {
            return $_;
        }
    }
    return undef;
}

#---------------------------------------------------------------------