File Coverage

blib/lib/MooX/Clone.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition 1 3 33.3
subroutine 5 5 100.0
pod n/a
total 23 26 88.4


line stmt bran cond sub pod time code
1             package MooX::Clone;
2              
3 2     2   14471 use Moo ();
  2         10118  
  2         40  
4 2     2   803 use Moo::Role ();
  2         14357  
  2         152  
5              
6             our $VERSION = "0.02";
7              
8             sub import {
9 2     2   21 my ($class, $type) = @_;
10              
11 2         5 my $target = caller;
12 2     2   18 no strict 'refs';
  2         3  
  2         70  
13 2     2   10 no warnings 'redefine';
  2         4  
  2         155  
14              
15 2 50 33     49 if ( ! $target->can('clone')
16             && ! Moo::Role->does_role($target, 'MooX::Role::Clone')
17             ) {
18 2         77 Moo::Role->apply_single_role_to_package(
19             $target,
20             'MooX::Role::Clone'
21             );
22             }
23             }
24              
25             1;
26             __END__