| line |
true |
false |
branch |
|
17
|
4 |
29 |
if (my $error = $class->_validate(%param)) |
|
57
|
5 |
20 |
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) { } |
|
118
|
3 |
30 |
unless length $package |
|
120
|
29 |
1 |
if _is_package_loaded($package) |
|
128
|
1 |
24 |
unless length $name |
|
130
|
1 |
23 |
unless ($self->package->can($name)) |
|
134
|
2 |
21 |
unless ($new_sub) |
|
138
|
20 |
1 |
if _is_coderef($new_sub) |
|
146
|
3 |
4 |
unless length $name |
|
148
|
3 |
1 |
if $self->_get_original($name) |
|
195
|
0 |
20 |
if exists $originals->{$name} |
|
225
|
0 |
20 |
if $self->_get_original($name) |
|
241
|
16 |
8 |
if (my $first_argument = $arguments[0]) |
|
251
|
14 |
2 |
if ($is_class_or_object) |
|
262
|
4 |
20 |
if ($self->want_array) |
|
271
|
10 |
14 |
if (not defined $want_array) { } |
|
|
8 |
6 |
elsif ($want_array) { } |
|
360
|
4 |
6 |
if ($self->want_array) |
|
374
|
20 |
1 |
if $reftype eq "CODE" |
|
385
|
29 |
1 |
if %{$package;} |