File Coverage

blib/lib/Test/Spy/Observer.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1             $Test::Spy::Observer::VERSION = '0.004';
2             use v5.10;
3 6     6   3183 use strict;
  6         23  
4 6     6   53 use warnings;
  6         13  
  6         137  
5 6     6   37  
  6         23  
  6         192  
6             use Moo;
7 6     6   36 use Mooish::AttributeBuilder -standard;
  6         13  
  6         47  
8 6     6   2758 use Carp qw(croak);
  6         16  
  6         53  
9 6     6   580  
  6         10  
  6         1136  
10             has param 'method_name';
11              
12             has field 'call_history' => (
13             clearer => -hidden,
14             lazy => sub { [] },
15             );
16              
17             with qw(Test::Spy::Interface);
18              
19             {
20             my ($self, $inner_self, @params) = @_;
21              
22 37     37   68 push @{$self->call_history}, [@params];
23             }
24 37         51  
  37         738  
25             1;
26