File Coverage

blib/lib/overload/x.pm
Criterion Covered Total %
statement 23 23 100.0
branch 6 6 100.0
condition n/a
subroutine 8 8 100.0
pod 2 2 100.0
total 39 39 100.0


line stmt bran cond sub pod time code
1             package overload::x;
2 2     2   138768 use 5.006; use strict; use warnings; our $VERSION = '1.0';
  2     2   16  
  2     2   12  
  2         3  
  2         42  
  2         21  
  2         4  
  2         117  
3 2     2   14 use base 'Import::Export';
  2         3  
  2         1049  
4 2     2   35728 use Clone qw(clone);
  2         5405  
  2         167  
5              
6             our %EX = (
7             n => [qw/all/],
8             x => [qw/all/]
9             );
10              
11             use overload
12 2     2   2441 'x' => \&x;
  2         1939  
  2         14  
13              
14             sub n {
15 2     2 1 3134 my $n = shift;
16 2         46 bless \$n, __PACKAGE__;
17             }
18              
19             sub x {
20 5     5 1 4565 my ($times, $obj) = @_;
21             my @times = map {
22 5 100       22 ref $obj ? clone($obj) : $obj
  21 100       73  
23             } 1 .. (ref $times ? $$times : $times);
24 5 100       22 wantarray ? @times : \@times;
25             }
26              
27             1;
28              
29             __END__