| line |
true |
false |
branch |
|
25
|
2 |
16 |
@_ ? : |
|
30
|
0 |
67 |
unless (grep {$_ eq $sym;} @EXPORT_OK) |
|
33
|
34 |
33 |
$To_Universal{$sym} ? : |
|
36
|
0 |
67 |
if (defined &$dest) |
|
37
|
0 |
0 |
if (*{$dest;}{'CODE'} == *{$src;}{'CODE'}) { } |
|
59
|
0 |
60 |
if (@_ != 2 or ref $_[1]) |
|
73
|
7 |
64 |
if (@_ > 0 and @_ % 2 == 0) { } |
|
|
1 |
63 |
elsif (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
63 |
0 |
elsif (@_ == 1 and not ref $_[0]) { } |
|
100
|
8 |
63 |
if exists $method->{'value'} |
|
114
|
29 |
0 |
if (@_ % 2 == 0) { } |
|
|
0 |
0 |
elsif (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
124
|
1 |
28 |
if @_ |
|
130
|
0 |
1 |
if @_ |
|
154
|
71 |
0 |
if (@_) |
|
156
|
0 |
71 |
if (@_ or ref $args ne 'HASH') |
|
160
|
71 |
71 |
if ($name eq 'target') { } |
|
|
71 |
0 |
elsif ($name eq 'method') { } |
|
175
|
71 |
1557 |
if @_ |
|
181
|
764 |
847 |
if @_ |
|
187
|
764 |
2890 |
if @_ |
|
193
|
71 |
2358 |
if @_ |
|
199
|
44 |
154 |
if @_ |
|
205
|
56 |
764 |
if @_ |
|
206
|
15 |
805 |
unless (exists $self->{'__canceled'}) |
|
220
|
69 |
215 |
unless (defined $self->{'__call_count'}) |
|
235
|
113 |
86 |
if @_ |
|
244
|
7 |
37 |
if (@_ == 1 and ref $_[0] eq 'CODE') { } |
|
|
37 |
0 |
elsif (@_ == 1) { } |
|
286
|
12 |
111 |
if @_ |
|
292
|
14 |
98 |
if @_ |
|
298
|
155 |
40 |
if @_ |
|
304
|
74 |
12 |
unless defined $self->_eq_args |
|
305
|
2 |
10 |
unless $self->_call_count |
|
307
|
3 |
7 |
if (not defined $self->_given_args or scalar @{$self->_eq_args;} != scalar @{$self->_given_args;}) |
|
314
|
3 |
5 |
unless ($self->_match_arguments($a, $b)) |
|
315
|
0 |
3 |
unless defined $a |
|
316
|
0 |
3 |
unless defined $b |
|
326
|
0 |
0 |
unless defined $a or defined $b |
|
327
|
0 |
8 |
unless defined $a and defined $b |
|
333
|
72 |
14 |
unless defined $self->_deep_args |
|
334
|
2 |
12 |
unless $self->_call_count |
|
339
|
5 |
7 |
unless ($same) |
|
358
|
1 |
156 |
if @_ |
|
370
|
6 |
14 |
$n == 1 ? : |
|
372
|
12 |
8 |
@params ? : |
|
379
|
0 |
5 |
unless (defined $n_times and $n_times =~ /^\A\d+\z/) |
|
383
|
3 |
2 |
if ($self->_call_count != $n_times) |
|
400
|
4 |
26 |
if ($self->_call_count != 1) |
|
411
|
0 |
17 |
unless (defined $n_times and $n_times =~ /^\A\d+\z/) |
|
415
|
2 |
32 |
if ($self->_call_count < $n_times) |
|
431
|
0 |
10 |
unless (defined $n_times and $n_times =~ /^\A\d+\z/) |
|
435
|
3 |
7 |
if ($self->_call_count > $n_times) |
|
467
|
1 |
31 |
if @msgs |
|
474
|
12 |
74 |
if (my $message = $self->_check_call_count->()) |
|
492
|
0 |
764 |
if ($Test::Spec::Mocks::Debug) |
|
498
|
735 |
29 |
if (ref $self->_target) { } |
|
509
|
0 |
764 |
if ($Test::Spec::Mocks::Debug) |
|
516
|
681 |
83 |
if ($self->_original_code) { } |
|
535
|
32 |
732 |
unless $self->_canceled |
|
560
|
144 |
2 |
if (&Scalar::Util::refaddr($_[0]) == &Scalar::Util::refaddr($target)) { } |
|
|
0 |
2 |
elsif (not $original_method) { } |
|
566
|
1 |
143 |
if $self->_exception |
|
589
|
3 |
26 |
defined &$dest ? : |
|
597
|
0 |
11 |
if $self->_exception |
|
604
|
681 |
83 |
if ($self->_original_code) |
|
607
|
0 |
681 |
if (defined(my $proto = prototype $self->_original_code)) |