| line |
true |
false |
branch |
|
17
|
4 |
31 |
if (my $error = $class->_validate(%param)) |
|
57
|
5 |
22 |
if (my $error = $self->_validate_overriding($name, $new_sub)) |
|
76
|
4 |
3 |
if (my $error = $self->_validate_call_original($name)) |
|
84
|
1 |
2 |
if (not defined $want_array) { } |
|
|
1 |
1 |
elsif ($want_array) { } |
|
108
|
4 |
2 |
if keys %{$self->times;} |
|
115
|
1 |
2 |
unless $self->called |
|
132
|
3 |
32 |
unless length $package |
|
134
|
31 |
1 |
if _is_package_loaded($package) |
|
142
|
1 |
26 |
unless length $name |
|
144
|
1 |
25 |
unless ($self->package->can($name)) |
|
148
|
2 |
23 |
unless ($new_sub) |
|
152
|
22 |
1 |
if _is_coderef($new_sub) |
|
160
|
3 |
4 |
unless length $name |
|
162
|
3 |
1 |
if $self->_get_original($name) |
|
209
|
0 |
22 |
if exists $originals->{$name} |
|
239
|
0 |
22 |
if $self->_get_original($name) |
|
255
|
22 |
8 |
if (my $first_argument = $arguments[0]) |
|
265
|
20 |
2 |
if ($is_class_or_object) |
|
276
|
4 |
26 |
if ($self->want_array) |
|
285
|
16 |
14 |
if (not defined $want_array) { } |
|
|
8 |
6 |
elsif ($want_array) { } |
|
374
|
4 |
6 |
if ($self->want_array) |
|
388
|
22 |
1 |
if $reftype eq "CODE" |
|
399
|
31 |
1 |
if %{$package;} |