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   142509 use strict;
  2         21  
  2         59  
4 2     2   10 use warnings;
  2         4  
  2         121  
5              
6             our $VERSION = '0.16';
7              
8 2     2   13 use List::Util 1.45 ();
  2         58  
  2         47  
9 2     2   1151 use List::SomeUtils 0.56 ();
  2         27060  
  2         67  
10 2     2   1028 use List::UtilsBy 0.11 ();
  2         4007  
  2         108  
11              
12             BEGIN {
13 2     2   6 my %imported;
14 2         6 for my $module (qw( List::Util List::SomeUtils List::UtilsBy )) {
15 6         11 my @ok = do {
16             ## no critic (TestingAndDebugging::ProhibitNoStrict)
17 2     2   14 no strict 'refs';
  2         4  
  2         135  
18 6         12 @{ $module . '::EXPORT_OK' };
  6         96  
19             };
20              
21 6         17 $module->import( grep { !$imported{$_} } @ok );
  196         970  
22              
23 6         231 @imported{@ok} = ($module) x @ok;
24             }
25             }
26              
27 2     2   14 use base 'Exporter';
  2         6  
  2         444  
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__