File Coverage

blib/lib/MooX/Role/CloneSet.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 28 28 100.0


line stmt bran cond sub pod time code
1             package MooX::Role::CloneSet;
2              
3 3     3   92503 use 5.012;
  3         16  
4 3     3   18 use strict;
  3         6  
  3         77  
5 3     3   15 use warnings;
  3         5  
  3         85  
6              
7 3     3   461 use version; our $VERSION = version->declare("v0.1.1");
  3         1944  
  3         16  
8              
9 3     3   799 use Moo::Role;
  3         17523  
  3         17  
10 3     3   1653 use namespace::clean;
  3         11636  
  3         19  
11              
12             sub cset($ %)
13             {
14 4     4 1 26177 my ($self, %new) = @_;
15              
16             # Hmm, so Moo doesn't have metaclasses, right?
17 4         10 return $self->new(%{$self}, %new);
  4         107  
18             }
19              
20             1;
21             __END__