| line |
true |
false |
branch |
|
14
|
0 |
10 |
unless my $around = do {
no strict 'refs';
\&{"${target}::around";}
} |
|
19
|
1 |
25 |
unless ($target->can($to)) |
|
23
|
0 |
25 |
unless eval qq[\n sub ${target}::$from {\n goto &{\$_[0]->can("$to")};\n };\n 1;\n ] |
|
43
|
8 |
12 |
if $aliases and not ref $aliases |
|
46
|
3 |
17 |
unless $aliases and @$aliases |
|
51
|
1 |
1 |
@{$attr;} == 1 ? : |
|
|
15 |
2 |
!ref($attr) ? : |
|
56
|
0 |
16 |
defined $opts{'init_arg'} ? : |
|
58
|
13 |
3 |
if (not exists $opts{'init_arg'} or defined $opts{'init_arg'}) |
|
69
|
9 |
7 |
unless ($installed_buildargs) |
|
77
|
1 |
26 |
if (@init > 1) { } |
|
|
7 |
19 |
elsif (@init == 1) { } |