| line |
true |
false |
branch |
|
57
|
1 |
0 |
if -f $output_file |
|
67
|
0 |
3 |
unless open FH, ">> $output_file" |
|
72
|
8 |
48 |
if (not defined $pattern) { } |
|
|
8 |
40 |
elsif (not $pattern =~ m[^[%/\*\+-]]) { } |
|
81
|
10 |
0 |
$$self{'debug'} ? : |
|
87
|
3 |
0 |
$$self{'debug'} ? : |
|
94
|
26 |
106 |
if (not $flag and $self->_is_recursive_start($pattern)) |
|
102
|
18 |
88 |
if ($pattern =~ /\*(\d+)/) { } |
|
|
6 |
82 |
elsif ($pattern =~ m[/(\d+)]) { } |
|
|
19 |
63 |
elsif ($pattern =~ /%(\d+)/) { } |
|
|
5 |
58 |
elsif ($pattern =~ /\+(\d+)/) { } |
|
|
18 |
40 |
elsif ($pattern =~ /-(\d+)/) { } |
|
103
|
5 |
13 |
if ($flag eq 1) { } |
|
113
|
3 |
3 |
if ($flag eq 1) { } |
|
123
|
19 |
0 |
if $$self{'residue_loop'} |
|
124
|
0 |
19 |
if ($flag eq 1) { } |
|
134
|
5 |
0 |
if ($flag eq 1) { } |
|
144
|
13 |
5 |
if ($flag eq 1) { } |
|
162
|
5 |
8 |
if (defined $$self{'residue_loop'} and $$self{'residue_loop'} > 1 and $res < 0 || $res > $$self{'residue_loop'}) |
|
180
|
26 |
80 |
$pattern =~ /^\d+/ && !($pattern =~ /^\d+$/) ? : |