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   73323 use 5.012;
  3         8  
4 3     3   12 use strict;
  3         3  
  3         61  
5 3     3   16 use warnings;
  3         5  
  3         79  
6              
7 3     3   364 use version; our $VERSION = version->declare("v0.1.0");
  3         1253  
  3         16  
8              
9 3     3   657 use Moo::Role;
  3         12717  
  3         14  
10 3     3   1207 use namespace::clean;
  3         7792  
  3         17  
11              
12             sub cset($ %)
13             {
14 4     4 1 9399 my ($self, %new) = @_;
15              
16             # Hmm, so Moo doesn't have metaclasses, right?
17 4         8 return $self->new(%{$self}, %new);
  4         97  
18             }
19              
20             1;
21             __END__