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.003';
2             use v5.10;
3 6     6   3050 use strict;
  6         30  
4 6     6   42 use warnings;
  6         13  
  6         129  
5 6     6   36  
  6         11  
  6         140  
6             use Moo;
7 6     6   27 use Mooish::AttributeBuilder;
  6         14  
  6         34  
8 6     6   2294 use Carp qw(croak);
  6         12  
  6         373  
9 6     6   36  
  6         22  
  6         1115  
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   79 push @{$self->call_history}, [@params];
23             }
24 37         49  
  37         675  
25             1;
26