line |
true |
false |
branch |
14
|
5 |
6 |
if (scalar @opts == 1 and ($opts[0] || '') =~ /^-base$/i) { } |
|
1 |
9 |
elsif (scalar @opts >= 1 and not +($opts[0] || '') =~ /^-no_export/i) { } |
33
|
5 |
1 |
unless (($opts[0] || '') =~ /^-no_export$/i) |
40
|
0 |
4 |
unless $class |
58
|
1 |
0 |
unless ref $self |
62
|
0 |
2 |
if ($caller->can($name)) |
67
|
4 |
0 |
$target ? : |
82
|
0 |
5 |
if ($caller->can($container_name)) |
85
|
10 |
0 |
$target ? : |
95
|
5 |
0 |
unless ref $self |
98
|
5 |
0 |
if (@init_opt == 1 and ref $init_opt[0] eq 'CODE') { } |
113
|
4 |
0 |
unless ref $self |
121
|
4 |
0 |
$target ? : |
129
|
1 |
0 |
unless ref $self |
135
|
14 |
5 |
unless ref $self |
139
|
5 |
5 |
$initializer ? : |
143
|
14 |
5 |
if $obj |
152
|
1 |
0 |
unless ref $self |