File Coverage

blib/lib/App/PerlNitpick/PCPWrap.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             use strict;
2 2     2   14 use warnings;
  2         4  
  2         58  
3 2     2   8 use Object::Method;
  2         4  
  2         49  
4 2     2   724  
  2         725  
  2         13  
5             my ($class, $pcp_class, $on_violate_cb) = @_;
6              
7 2     2 0 7 my $o = $pcp_class->new;
8              
9 2         45 method(
10             $o,
11             violation => sub {
12             my ($self, $msg, $expl, $elem) = @_;
13             return [$msg, $expl, $elem];
14 2     2   1470 }
15 2         22 );
16              
17 2         2374 return $o;
18             }
19 2         143  
20             1;