| line |
true |
false |
branch |
|
32
|
2 |
0 |
$self ? : |
|
48
|
0 |
0 |
if $debug |
|
50
|
0 |
0 |
unless open A, $filename |
|
53
|
0 |
0 |
if /^#|^[\s\t\n\r]*$/ |
|
55
|
0 |
0 |
if (/^suffixes/i) |
|
60
|
0 |
0 |
unless $suffixes |
|
62
|
0 |
0 |
if (/^flag[\s\t]+\*{0,1}(.):/i) |
|
69
|
0 |
0 |
if (/^[\s\t]*([^>#]+)>[\s\t]+-([^\,\s\t]+),([^\s\t]+)/) { } |
|
|
0 |
0 |
elsif (/^[\s\t]*([^>#]+)>[\s\t]+([^\s\t\#]+)/) { } |
|
72
|
0 |
0 |
if $3 ne '-' |
|
80
|
0 |
0 |
unless $tmp |
|
102
|
0 |
1 |
if $debug |
|
104
|
0 |
1 |
unless open A, $filename |
|
108
|
10 |
0 |
if ($#line > 2) |
|
126
|
0 |
4 |
if length $word < 3 |
|
131
|
0 |
40 |
if $debug |
|
132
|
0 |
40 |
if length $word < length $sub |
|
134
|
32 |
8 |
if ($sub) { } |
|
135
|
32 |
0 |
unless $word =~ /$sub$/i |
|
136
|
0 |
0 |
if ($add) { } |
|
144
|
0 |
8 |
if $debug |
|
145
|
8 |
0 |
if ($tmp_word =~ /$regexp/xi) |
|
165
|
0 |
4 |
if length $_ < length $minimal |