| line |
true |
false |
branch |
|
130
|
0 |
5 |
unless (defined $ndlfile) |
|
135
|
5 |
0 |
if ($ndlfile =~ /\.\*$/) |
|
141
|
5 |
0 |
if (opendir DIR, $directory) { } |
|
142
|
9 |
71 |
if /^$filename/ |
|
146
|
5 |
0 |
if (defined $ndl) { } |
|
160
|
0 |
5 |
unless (-e $ndlfile) |
|
169
|
0 |
5 |
if exists $attr{'-cache'} |
|
179
|
0 |
27 |
if ($$self{'__cache'} and $$self{'__nodes'}{$node}) |
|
185
|
27 |
0 |
if (my $addr = 'FTN::Address'->new($node)) { } |
|
186
|
12 |
15 |
if ($$addr{'p'}) |
|
189
|
12 |
0 |
if (open F, '<' . $$self{'__ndlfile'}) { } |
|
194
|
24 |
116 |
if /^;/ |
|
195
|
8 |
4 |
if (m[^Boss,(\d+):(\d+)/(\d+)] and $1 eq $$addr{'z'} and $2 eq $$addr{'n'} and $3 eq $$addr{'f'}) |
|
200
|
0 |
100 |
if /^;/ |
|
201
|
8 |
92 |
if (/^,(\d+),/ || /^Point,(\d+),/ || 0 and $$addr{'p'} == $1) |
|
209
|
0 |
92 |
if /^Boss/ |
|
215
|
8 |
4 |
if ($found) { } |
|
219
|
8 |
0 |
if $$self{'__cache'} |
|
232
|
19 |
0 |
if (open F, '<' . $$self{'__ndlfile'}) { } |
|
238
|
57 |
19 |
if /^;/ |
|
239
|
19 |
0 |
if (/^Zone,(\d+),/ and $$addr{'z'} == $1) |
|
240
|
1 |
18 |
if ($$addr{'z'} eq $$addr{'n'} and $$addr{'f'} == 0) |
|
246
|
21 |
101 |
if /^;/ |
|
247
|
13 |
88 |
if /^Region,/ |
|
248
|
13 |
88 |
if (/^Region,(\d+),/ || /^Host,(\d+),/ and $$addr{'n'} == $1) { } |
|
|
5 |
83 |
elsif (not $reg and $$addr{'z'} eq $$addr{'n'} and /,(\d+)/ and $$addr{'f'} eq $1) { } |
|
252
|
2 |
11 |
if ($$addr{'f'} == 0) |
|
258
|
4 |
20 |
if /^;/ |
|
259
|
4 |
16 |
if /^Zone,/ or /^Region,/ or /^Host,/ |
|
262
|
7 |
9 |
if (/^,(\d+),/ || /^Hub,(\d+),/ || /^Pvt,(\d+),/ || /^Hold,(\d+),/ || /^Down,(\d+),/ || 0 and $$addr{'f'} == $1) |
|
282
|
4 |
15 |
if ($$addr{'p'}) |
|
286
|
0 |
8 |
if /^;/ |
|
287
|
0 |
8 |
if /^((Zone)|(Region)|(Host)|(Hub)|(Pvt)|(Hold)|(Down))?,/ |
|
289
|
4 |
4 |
if (/^Point,(\d+),/ and $1 == $$addr{'p'}) |
|
298
|
15 |
4 |
if ($found) { } |
|
302
|
15 |
0 |
if $$self{'__cache'} |