File Coverage

blib/lib/any.pm

Criterion	Covered	Total	%
statement	22	25	88.0
branch	0	6	0.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	28	37	75.6

package any;

use strict;
use warnings;

use Carp;
use version;our $VERSION = qv('0.0.1');

our @module;
our $failed = {};

sub import {
    shift;
    local $UNIVERSAL::Level = $UNIVERSAL::Level + 1;
    local $Carp::CarpLevel  = $Carp::CarpLevel  + 1;

    my @flags = map { $_ if $_ ne '-croak' } grep(/^-/, @_);
    @module = ();
    $failed = {};

    for my $mod (grep(!/^-/, @_)) {
        use first $mod, @flags;
        push @module, $first::module if $first::module;
        $failed->{ $mod } = $first::failed->{ $mod } if exists $first::failed->{ $mod };
    }
}

1;

__END__