File Coverage

blib/lib/Test/CallCounter.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	2	2	100.0
condition			n/a
subroutine	8	9	88.8
pod	3	3	100.0
total	37	39	94.8

package Test::CallCounter;
use strict;
use warnings;
use 5.008001;
our $VERSION = '0.04';

use Scalar::Util 1.24 qw(set_prototype);
use Class::Method::Modifiers qw(install_modifier);

our $COUNTER;

sub new {
    my ($class, $klass, $method) = @_;

    my $self = bless +{
        class  => $klass,
        method => $method,
        count  => 0,
    }, $class;

    my $prototype = prototype($klass->can($method));

    install_modifier(
        $klass, 'before', $method, sub {
            $self->{count}++
        }
    );

    if (defined $prototype) {
        &set_prototype($klass->can($method), $prototype);
    }

    return $self;
}

sub count { $_[0]->{count} }
sub reset { $_[0]->{count} = 0 }

1;
__END__