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

package App::PerlNitpick::PCPWrap;
use strict;
use warnings;
use Object::Method;

sub new {
    my ($class, $pcp_class, $on_violate_cb) = @_;

    my $o = $pcp_class->new;

    method(
        $o,
        violation => sub {
            my ($self, $msg, $expl, $elem) = @_;
            return [$msg, $expl, $elem];
        }
    );

    return $o;
}

1;