| line |
true |
false |
branch |
|
17
|
1 |
9 |
unless my $delegate = delete $arg_for{'to'} |
|
19
|
1 |
8 |
unless my $methods = delete $arg_for{'methods'} |
|
25
|
0 |
8 |
if (defined $else_return and not defined $if_true) |
|
31
|
2 |
6 |
if ('ARRAY' eq ref $methods) { } |
|
|
3 |
3 |
elsif (not ref $methods) { } |
|
|
1 |
2 |
elsif ('HASH' ne ref $methods) { } |
|
41
|
0 |
7 |
unless (keys %$methods) |
|
44
|
0 |
7 |
if (keys %arg_for) |
|
49
|
3 |
4 |
if (($if_true || '') eq '1') |
|
53
|
4 |
3 |
if defined $if_true |
|
60
|
6 |
2 |
if ($if_true) { } |
|
61
|
0 |
6 |
if ($args) { } |
|
64
|
0 |
0 |
if ($self->$if_true) |
|
67
|
0 |
0 |
defined $else_return ? : |
|
73
|
1 |
3 |
if ($self->$if_true) |
|
76
|
1 |
2 |
defined $else_return ? : |
|
81
|
1 |
1 |
if ($args) { } |
|
97
|
0 |
8 |
if (not $override and defined *{"${package}::$method";}{'CODE'}) |
|
122
|
27 |
1 |
if ($name =~ /^[a-z_][a-z0-9_]*$/i) |