File Coverage

blib/lib/CPAN/Index/API/Role/Clonable.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 16 81.2


line stmt bran cond sub pod time code
1             package CPAN::Index::API::Role::Clonable;
2             {
3             $CPAN::Index::API::Role::Clonable::VERSION = '0.007';
4             }
5              
6             # ABSTRACT: Clones index file objects
7              
8 3     3   2430 use strict;
  3         6  
  3         112  
9 3     3   14 use warnings;
  3         5  
  3         103  
10              
11 3     3   15 use Moose::Role;
  3         5  
  3         24  
12              
13             sub clone
14             {
15 0     0 1   my ($self, %params) = @_;
16 0           $self->meta->clone_object($self, %params);
17             }
18              
19              
20             1;
21              
22             __END__
23             =pod
24              
25             =head1 NAME
26              
27             CPAN::Index::API::Role::Clonable - Clones index file objects
28              
29             =head1 VERSION
30              
31             version 0.007
32              
33             =head1 PROVIDES
34              
35             =head2 clone
36              
37             Clones the objecct. Parameters can be supplied as key/value paris to override
38             the values of existing attributes.
39              
40             =head1 AUTHOR
41              
42             Peter Shangov <pshangov@yahoo.com>
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2012 by Venda, Inc..
47              
48             This is free software; you can redistribute it and/or modify it under
49             the same terms as the Perl 5 programming language system itself.
50              
51             =cut
52