File Coverage

blib/lib/Test/Mocha/MethodCall.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 4 100.0
total 23 27 100.0


line stmt bran cond sub pod time code
1             package Test::Mocha::MethodCall;
2             # ABSTRACT: Objects to represent method calls
3             $Test::Mocha::MethodCall::VERSION = '0.66';
4 13     13   85 use parent 'Test::Mocha::Method';
  13         24  
  13         66  
5 13     13   681 use strict;
  13         32  
  13         340  
6 13     13   65 use warnings;
  13         25  
  13         1961  
7              
8             sub new {
9             # uncoverable pod
10 390     390 0 1416 my ( $class, %args ) = @_;
11             # caller should be an arrayref tuple [file, line]
12             ### assert: defined $args{invocant}
13             ### assert: defined $args{caller}
14             ### assert: ref $args{caller} eq 'ARRAY' && @{$args{caller}} == 2
15 390         1540 return $class->SUPER::new(%args);
16             }
17              
18             sub invocant {
19             # uncoverable pod
20 193     193 0 633 return $_[0]->{invocant};
21             }
22              
23             sub caller { ## no critic (ProhibitBuiltinHomonyms)
24             # uncoverable pod
25 78     78 0 10227 return @{ $_[0]->{caller} }; # ($file, $line)
  78         509  
26             }
27              
28             sub stringify_long {
29             # uncoverable pod
30 78     78 0 2495 my ($self) = @_;
31 78         199 return sprintf '%s called at %s line %d',
32             $self->SUPER::stringify, $self->caller;
33             }
34              
35             1;