| line |
true |
false |
branch |
|
23
|
203 |
0 |
ref $_[0] eq 'HASH' ? : |
|
25
|
0 |
203 |
unless @_ |
|
29
|
9 |
194 |
if ($arg->{'type'} eq "file") |
|
34
|
33 |
161 |
if ($arg->{'flag'} & 128) |
|
41
|
9 |
152 |
if ($arg->{'flag'} & 64) |
|
75
|
0 |
33 |
unless ($arg->{'flag'} & 128) |
|
84
|
0 |
44 |
if $_ eq "" |
|
88
|
3 |
41 |
if (s/^\+//u) { } |
|
|
2 |
39 |
elsif (s/^-//u) { } |
|
|
2 |
37 |
elsif (s/^\?//u) { } |
|
98
|
0 |
44 |
if (s/^\&//u) { } |
|
105
|
44 |
0 |
if $_ ne "" |
|
117
|
9 |
0 |
ref $_[0] eq 'HASH' ? : |
|
124
|
1 |
8 |
if (not -f $file and $file =~ s/\@ (?[\d:,]+) $//ux) |
|
127
|
0 |
9 |
unless open my $fh, "<:encoding(utf8)", $file |
|
129
|
5 |
4 |
if ($select //= $arg->{'select'}) |
|
145
|
0 |
46 |
if (/^\(\?\(DEFINE\)\(\?\<(?[^>]+)/u) |
|
158
|
0 |
9 |
if (%DEFINE) |
|
166
|
0 |
0 |
if $seen->{$name}++ |
|
167
|
0 |
0 |
unless my $def = $DEFINE{$name} |
|
172
|
0 |
0 |
if %define |