File Coverage

blib/lib/MooX/Role/CloneSet.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package MooX::Role::CloneSet;
2              
3 3     3   435538 use 5.012;
  3         12  
4 3     3   16 use strict;
  3         6  
  3         89  
5 3     3   33 use warnings;
  3         10  
  3         198  
6              
7 3     3   831 use Moo::Role;
  3         19235  
  3         17  
8 3     3   2238 use namespace::clean;
  3         22692  
  3         27  
9              
10             our $VERSION = v0.1.2;
11              
12             sub cset($ %) {
13 4     4 1 719294 my ( $self, %new ) = @_;
14              
15             # Hmm, so Moo doesn't have metaclasses, right?
16 4         12 return $self->new( %{$self}, %new );
  4         158  
17             }
18              
19             1;
20             __END__