view release on metacpan or  search on metacpan

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

}

# subroutines #----#----#----#----#----#----#----#----#----#----#----#----#
my @pragmas = qw(
    attributes autodie autouse
    base bigint bignum bigrat blib bytes
    charnames constant diagnostics encoding
    feature fields filetest if integer less lib locale mro
    open ops overload overloading parent re
    sigtrap sort strict subs
    threads threads::shared utf8 vars vmsish
    warnings warnings::register
);

sub scan_line {
    my $pairs = shift;
    local $_ = shift;
    my @names = ();
    return if /^\buse\s+v5(?:\.\d{2}){1,2}\s*;/;    #ignore VERSION
    return if /^\buse\s+5\.\d{3}(?:_\d{3})?;/;      #ignore old version