| line |
true |
false |
branch |
|
18
|
0 |
3 |
if (defined $self->{'expando'}) { } |
|
21
|
0 |
0 |
defined $2 ? : |
|
|
0 |
0 |
$_ =~ s/\A$rx// ? : |
|
26
|
17 |
62 |
s/ \A \% ([^%()]*) \( ([^\s()]+) \) //x ? : |
|
31
|
0 |
3 |
if (defined $self->{'literal'}) { } |
|
34
|
0 |
0 |
s/\A$rx// ? : |
|
39
|
47 |
0 |
s/\A(.)//s ? : |
|
42
|
0 |
3 |
if (defined $self->{'escaped_literal'}) { } |
|
45
|
0 |
0 |
$_ =~ s/\A$rx// ? : |
|
50
|
2 |
47 |
s/\A\\(.)// ? : |
|
53
|
1 |
2 |
if (defined $self->{'dot_separator'}) { } |
|
56
|
1 |
0 |
if (ref $dot eq '') { } |
|
|
0 |
0 |
elsif (ref $dot eq 'Regexp') { } |
|
72
|
0 |
17 |
unless defined $val |
|
87
|
0 |
0 |
@_ > 1 ? : |
|
88
|
0 |
0 |
@_ > 1 ? : |
|
89
|
0 |
4 |
@_ > 1 ? : |
|
103
|
17 |
62 |
if (my($code, $fmt) = &$mat()) { } |
|
|
13 |
49 |
elsif (s/\A(\s+)//) { } |
|
|
49 |
0 |
elsif (defined($res = &$esc) or defined($res = &$lit)) { } |
|
106
|
0 |
17 |
if defined $fmt and length $fmt |
|
129
|
0 |
25 |
if $sr eq '' |
|
133
|
0 |
25 |
unless eval {
do {
$val = $stash->{$code};
1
}
} or eval {
do {
$val = $stash->[$code];
1
}
} |
|
140
|
1 |
24 |
if ref $val eq 'CODE' |
|
141
|
2 |
23 |
unless defined $val |
|
151
|
0 |
0 |
if $rval eq 'HASH' |
|
164
|
0 |
0 |
if (defined $f) { } |
|
|
0 |
0 |
elsif ($rval eq 'HASH') { } |
|
|
0 |
0 |
elsif ($rval eq 'ARRAY') { } |
|
165
|
0 |
0 |
unless $func->{$f} |
|
169
|
0 |
0 |
if defined $l or defined $r |
|
173
|
0 |
0 |
if defined $k |
|
174
|
0 |
0 |
defined $r ? : |
|
181
|
0 |
0 |
if length $code |
|
182
|
0 |
0 |
if $rval eq 'ARRAY' |
|
183
|
0 |
0 |
if $rval eq 'HASH' |
|
191
|
0 |
20 |
unless defined $val |
|
193
|
16 |
4 |
if $r eq '' |
|
195
|
0 |
4 |
unless $self |
|
197
|
0 |
4 |
if $r eq 'ARRAY' |
|
198
|
0 |
4 |
if $r eq 'CODE' |
|
199
|
4 |
0 |
if ($r eq 'HASH') |
|
201
|
3 |
6 |
if defined $val->{$_} |