NAME

Test::CallCounter - Count the number of method calling

SYNOPSIS

use Test::CallCounter;

my $counter = Test::CallCounter->new(
    'LWP::UserAgent' => 'get'
);

my $ua = LWP::UserAgent->new();
$ua->get('http://d.hatena.ne.jp/');

is($counter->count(), 1);

DESCRIPTION

Test::CallCounter counts the number of method calling.

METHODS

• my $counter = Test::CallCounter->new($class_name, $method_name)

  Make a instance of Test::CallCounter and hook $method_name method in $class_name to count calling method.

• $counter->count();

  Get a calling count of $method_name.

• $counter->reset()

  Reset counter.

AUTHOR

Tokuhiro Matsuno tokuhirom@gmail.com

SEE ALSO

Test::Mock::Guard

If you want to do more complex operation while monkey patching, see also Test::Resub.

LICENSE

Copyright (C) Tokuhiro Matsuno

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.