File Coverage

blib/lib/List/AllUtils.pm
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 37 37 100.0


line stmt bran cond sub pod time code
1             package List::AllUtils;
2              
3 2     2   141279 use strict;
  2         21  
  2         74  
4 2     2   12 use warnings;
  2         3  
  2         128  
5              
6             our $VERSION = '0.18';
7              
8 2     2   14 use List::Util 1.45 ();
  2         58  
  2         62  
9 2     2   1134 use List::SomeUtils 0.56 ();
  2         26691  
  2         66  
10 2     2   1067 use List::UtilsBy 0.11 ();
  2         4065  
  2         110  
11              
12             BEGIN {
13 2     2   6 my %imported;
14 2         4 for my $module (qw( List::Util List::SomeUtils List::UtilsBy )) {
15 6         14 my @ok = do {
16             ## no critic (TestingAndDebugging::ProhibitNoStrict)
17 2     2   15 no strict 'refs';
  2         4  
  2         134  
18 6         9 @{ $module . '::EXPORT_OK' };
  6         79  
19             };
20              
21 6         16 $module->import( grep { !$imported{$_} } @ok );
  196         999  
22              
23 6         211 @imported{@ok} = ($module) x @ok;
24             }
25             }
26              
27 2     2   17 use base 'Exporter';
  2         3  
  2         404  
28              
29             our @EXPORT_OK = List::Util::uniqstr(
30             @List::Util::EXPORT_OK,
31             @List::SomeUtils::EXPORT_OK,
32             @List::UtilsBy::EXPORT_OK,
33             );
34              
35             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
36              
37             1;
38              
39             # ABSTRACT: Combines List::Util, List::SomeUtils and List::UtilsBy in one bite-sized package
40              
41             __END__