view release on metacpan or  search on metacpan

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

499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
            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;
}
 
#---------------------------------------------------------------------