File Coverage

inc/My/Module/Recommend/All.pm

Criterion	Covered	Total	%
statement	19	25	76.0
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	27	34	79.4

package My::Module::Recommend::All;

use 5.008;

use strict;
use warnings;

use My::Module::Recommend::Any;
our @ISA = qw{ My::Module::Recommend::Any };

use Carp;
use Exporter qw{ import };

our $VERSION = '0.058';

our @EXPORT_OK = qw{ __all };

sub __all {
    my ( @args ) = @_;
    return __PACKAGE__->new( @args );
}

sub check {
    my ( $self ) = @_;
    my @missing;
    foreach my $m ( $self->__modules() ) {
	push @missing, $self->module_is_ok( @{ $m } );
    }
    return @missing;
}

1;

__END__