| line |
true |
false |
branch |
|
16
|
0 |
6 |
if (my $items = $self->_inject) |
|
18
|
0 |
0 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not $ref) { } |
|
34
|
0 |
10 |
unless $self->parts and @{$self->parts;} |
|
36
|
0 |
10 |
if (@{$self->parts;} > 3) |
|
49
|
1 |
7 |
if ($self->parts->[0] =~ /^[\%\$\&\@]/) |
|
58
|
0 |
8 |
if $self->has_non_string_or_quote_parts |
|
63
|
0 |
10 |
unless ref $part |
|
64
|
0 |
10 |
$$part[1] && $$part[1] eq '(' ? : |
|
69
|
0 |
8 |
if (@names > 2) |
|
84
|
10 |
0 |
unless @$parts > 3 |
|
85
|
0 |
0 |
unless ref $$parts[2] |
|
86
|
0 |
0 |
unless $$parts[2][0] eq 'sub' |
|
87
|
0 |
0 |
unless ref $$parts[3] |
|
88
|
0 |
0 |
unless $$parts[3][1] eq '(' |
|
89
|
0 |
0 |
if $$parts[2][1] |
|
106
|
2 |
8 |
if ($is_arrow and $self->parts->[2]) |
|
108
|
1 |
1 |
$is_ref ? : |
|
110
|
1 |
1 |
if ($is_arrow and $is_ref or @{$self->parts;} == 1) { } |
|
|
1 |
0 |
elsif ($is_arrow and $is_sub or @{$self->parts;} == 1) { } |
|
123
|
2 |
6 |
$$names[1] ? : |
|
124
|
6 |
2 |
unless @$names > 1 |
|
127
|
0 |
8 |
if (@$specs) |
|
128
|
0 |
0 |
if @$specs > 1 |