| line |
true |
false |
branch |
|
40
|
0 |
0 |
if ($file eq 'null') |
|
47
|
0 |
0 |
if ($file =~ m[^/]) { } |
|
51
|
0 |
0 |
if (-f "$dir/$file") |
|
58
|
0 |
0 |
unless ($realfile and -f $realfile) |
|
64
|
0 |
0 |
unless (defined $fh) |
|
87
|
0 |
0 |
@_ ? : |
|
95
|
0 |
0 |
ref $self ? : |
|
97
|
0 |
0 |
if (@_) |
|
156
|
299 |
3 |
ref $self ? : |
|
158
|
6 |
296 |
if (@_) |
|
167
|
20 |
28 |
if ($style eq 'print') { } |
|
|
28 |
0 |
elsif ($style eq 'collect') { } |
|
183
|
0 |
24 |
if $debug |
|
187
|
0 |
86 |
if $debug |
|
191
|
0 |
86 |
if $debug |
|
192
|
24 |
62 |
if ($first_left == -1) { } |
|
|
24 |
38 |
elsif ($first_left > 0) { } |
|
209
|
0 |
38 |
if $debug |
|
211
|
0 |
38 |
if $debug |
|
213
|
0 |
38 |
if ($first_right == -1) |
|
233
|
38 |
124 |
if ($last) { } |
|
234
|
38 |
0 |
if ($text =~ / (.*)(^|[^\\]) \Q$exp\E/sx) { } |
|
240
|
100 |
24 |
if ($text =~ / (.*?)(^|[^\\]) \Q$exp\E/sx) { } |
|
262
|
0 |
38 |
unless ($string =~ /^ $ldx \s* ([\W]) (.*?) \s* $rdx $/sx) |
|
270
|
38 |
0 |
if (defined($hook = $self->hook($char))) { } |
|
272
|
1 |
37 |
if (defined($object = $self->object)) { } |
|
291
|
0 |
6 |
unless my($function_name, $args) = $text =~ /(\w+)\((.*)\)/ |