File Coverage

blib/lib/Set/Product.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Set::Product;
2              
3 4     4   47743 use strict;
  4         8  
  4         111  
4 4     4   19 use warnings;
  4         8  
  4         118  
5              
6 4     4   20 use Exporter qw(import);
  4         10  
  4         620  
7              
8             our $VERSION = '0.03';
9             $VERSION = eval $VERSION;
10              
11             our @EXPORT_OK = qw(product);
12              
13             my $want_pp = $ENV{SET_PRODUCT_PP} || $ENV{PURE_PERL};
14             if ($want_pp or ! eval { require Set::Product::XS; 1 }) {
15             require Set::Product::PP;
16             Set::Product::PP->import(@EXPORT_OK);
17             }
18             else {
19             Set::Product::XS->import(@EXPORT_OK);
20             }
21              
22              
23             1;
24              
25             __END__