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.005';
2             use v5.10;
3 7     7   3383 use strict;
  7         24  
4 7     7   35 use warnings;
  7         12  
  7         135  
5 7     7   38  
  7         13  
  7         219  
6             use Moo;
7 7     7   37 use Mooish::AttributeBuilder -standard;
  7         22  
  7         47  
8 7     7   2503 use Carp qw(croak);
  7         14  
  7         80  
9 7     7   761  
  7         13  
  7         1197  
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   59 push @{$self->call_history}, [@params];
23             }
24 37         48  
  37         606  
25             1;
26