File Coverage

blib/lib/Set/Product.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             package Set::Product;
2              
3 3     3   23308 use strict;
  3         6  
  3         75  
4 3     3   13 use warnings;
  3         5  
  3         78  
5              
6 3     3   13 use Carp qw(croak);
  3         8  
  3         163  
7 3     3   11 use Exporter qw(import);
  3         5  
  3         80  
8 3     3   922 use Set::Product::PP;
  3         5  
  3         252  
9              
10             our $VERSION = '0.01';
11             $VERSION = eval $VERSION;
12              
13             our @EXPORT_OK = qw(product);
14              
15             my $want_xs = ! $ENV{SET_PRODUCT_PP} and ! $ENV{PURE_PERL}
16 2     2   695 and eval "use Set::Product::XS; 1";
  2         605  
  2         46  
17              
18 3     3   13 no warnings qw(redefine);
  3         24  
  3         182  
19              
20             *product = $want_xs
21             ? \&Set::Product::XS::product
22             : \&Set::Product::PP::product;
23              
24              
25             1;
26              
27             __END__