File Coverage

inc/Test/LoadAllModules.pm
Criterion Covered Total %
statement 34 37 91.8
branch 3 8 37.5
condition n/a
subroutine 8 9 88.8
pod 1 2 50.0
total 46 56 82.1


line stmt bran cond sub pod time code
1             #line 1
2 1     1   591 package Test::LoadAllModules;
  1         1  
  1         28  
3 1     1   5 use strict;
  1         2  
  1         21  
4 1     1   1028 use warnings;
  1         9039  
  1         30  
5 1     1   2191 use Module::Pluggable::Object;
  1         1617  
  1         86  
6 1     1   707 use List::MoreUtils qw(any);
  1         4  
  1         34  
7             use Test::More ();
8              
9             our $VERSION = '0.02';
10 1     1   5  
  1         1  
  1         377  
11             use Exporter;
12             our @ISA = qw/Exporter/;
13             our @EXPORT = qw/all_uses_ok/;
14              
15 1     1 1 75 sub all_uses_ok {
16 1         3 my %param = @_;
17 1 50       4 my $search_path = $param{search_path};
18 0         0 unless ($search_path) {
19 0         0 Test::More::plan skip_all => 'no search path';
20             exit;
21 1         4 }
22 1 50       21 Test::More::plan('no_plan');
  1         8  
23             my @exceptions = @{ $param{except} || [] };
24 1 50       2 my @lib
  1         6  
25 1         2 = @{ $param{lib} || [ 'lib' ] };
  44         10959  
26             foreach my $class (
27             grep { !is_excluded( $_, @exceptions ) }
28 1         4 sort do {
29 1         8 local @INC = @lib;
30             my $finder = Module::Pluggable::Object->new(
31 1         11 search_path => $search_path );
32             ( $search_path, $finder->plugins );
33             }
34             )
35 44         130 {
36             Test::More::use_ok($class);
37             }
38             }
39              
40 44     44 0 44 sub is_excluded {
41 44 0   0   165 my ( $module, @exceptions ) = @_;
  0            
42             any { $module eq $_ || $module =~ /$_/ } @exceptions;
43             }
44              
45             1;
46              
47             __END__