| line |
true |
false |
branch |
|
136
|
13 |
23 |
unless $options |
|
168
|
1 |
19 |
unless @_ or $self->{'first'} |
|
169
|
38 |
19 |
@_ ? : |
|
183
|
0 |
62 |
unless open IN, $filename |
|
214
|
337 |
152 |
if $in_braces == 0 |
|
219
|
331 |
158 |
if ($in_braces <= 0 and not /\\$/) |
|
221
|
190 |
141 |
if ($stmt =~ /^\s*$/) { } |
|
|
27 |
114 |
elsif ($stmt =~ /^\s*(-?)\s*include\s+(?!:)(.*)/) { } |
|
228
|
4 |
23 |
unless (-f $incfile) |
|
232
|
25 |
2 |
if (-f $incfile) { } |
|
|
1 |
1 |
elsif (not $opt) { } |
|
246
|
50 |
64 |
%$braces ? : |
|
247
|
78 |
36 |
if ($stmt =~ /^(?!\s)(.*?)\s*:\s*(.*)/) { } |
|
256
|
6 |
76 |
if ($target =~ s/^($re)//) { } |
|
259
|
1 |
5 |
if ($perl eq "") |
|
267
|
7 |
1 |
if ($ref eq 'Regexp' or $ref eq '') { } |
|
276
|
1 |
4 |
unless $target =~ /^\s*$/ |
|
283
|
33 |
43 |
if ($target =~ /\%/) |
|
286
|
97 |
105 |
$_ eq '\\%' ? : |
|
300
|
11 |
51 |
if ($dep =~ s/^($re)//) { } |
|
303
|
2 |
9 |
if ($perl eq "") |
|
310
|
1 |
8 |
unless $dep =~ /^\s*$/ |
|
333
|
66 |
103 |
if ($in_braces <= 0 and not /\\$/) |
|
336
|
50 |
16 |
%$braces ? : |
|
339
|
2 |
64 |
%$brackets ? : |
|
341
|
49 |
17 |
if ($act2 =~ s/^\s*($braces_re)//) { } |
|
|
1 |
16 |
elsif ($act2 =~ s/^\s*($brackets_re)//) { } |
|
367
|
13 |
3 |
if $act2 ne "" |
|
371
|
1 |
65 |
unless $act2 =~ /^\s*$/ |
|
380
|
2 |
76 |
if ($in_braces) |
|
385
|
30 |
48 |
unless $l == $#lines |
|
391
|
27 |
22 |
unless ($self->{'first'} or grep((ref $_ eq "Regexp"), @tgts)) |
|
398
|
35 |
1 |
%$braces ? : |
|
401
|
70 |
40 |
if $block =~ /^\s*$/ |
|
402
|
39 |
1 |
if (defined $braces->{$block}) { } |
|
405
|
2 |
37 |
if ($perl eq "") |
|
424
|
1 |
324 |
if $in_braces < 0 |
|
429
|
1 |
55 |
if $in_braces |
|
440
|
7 |
0 |
if defined $filename |
|
441
|
7 |
0 |
if $lineno |
|
442
|
7 |
0 |
@where ? : |
|
451
|
7 |
1 |
if defined $filename |
|
452
|
7 |
1 |
if $lineno |
|
453
|
7 |
1 |
@where ? : |
|
462
|
180 |
66 |
unless defined $close |
|
472
|
5 |
241 |
if $str =~ s/\\\n/ <0d> /g |
|
483
|
134 |
0 |
defined $filename ? : |
|
485
|
22 |
112 |
defined $self->{'options'}{'strict'} && $self->{'options'}{'strict'} == 0 ? : |
|
490
|
32 |
102 |
@indents ? : |
|
491
|
3 |
122 |
if length $_ < length $min_indent |
|
492
|
32 |
102 |
if $min_indent |
|
495
|
5 |
129 |
if $@ |
|
505
|
31 |
108 |
unless %$braces |
|
506
|
106 |
2 |
unless defined $close |
|
520
|
12 |
29 |
defined ${$2;} ? : |
|
521
|
1 |
1 |
defined ${$2;} ? : |