| line |
true |
false |
branch |
|
136
|
0 |
5 |
unless (defined $ndlfile) |
|
141
|
5 |
0 |
if ($ndlfile =~ /\.\*$/) |
|
147
|
5 |
0 |
if (opendir DIR, $directory) { } |
|
149
|
9 |
71 |
if /^$filename/ |
|
152
|
5 |
0 |
if (defined $ndl) { } |
|
166
|
0 |
5 |
unless (-e $ndlfile) |
|
175
|
0 |
5 |
if exists $attr{'-cache'} |
|
185
|
0 |
27 |
if ($self->{'__cache'} and $self->{'__nodes'}{$node}) |
|
191
|
27 |
0 |
if (my $addr = 'FTN::Address'->new($node)) { } |
|
192
|
12 |
15 |
if ($addr->{'p'}) |
|
195
|
12 |
0 |
if (open F, '<' . $self->{'__ndlfile'}) { } |
|
200
|
24 |
116 |
if /^;/ |
|
201
|
8 |
4 |
if (m[^Boss,(\d+):(\d+)/(\d+)] and $1 eq $addr->{'z'} and $2 eq $addr->{'n'} and $3 eq $addr->{'f'}) |
|
206
|
0 |
100 |
if /^;/ |
|
207
|
8 |
92 |
if (/^,(\d+),/ || /^Point,(\d+),/ || 0 and $addr->{'p'} == $1) |
|
215
|
0 |
92 |
if /^Boss/ |
|
221
|
8 |
4 |
if ($found) { } |
|
225
|
8 |
0 |
if $self->{'__cache'} |
|
238
|
19 |
0 |
if (open F, '<' . $self->{'__ndlfile'}) { } |
|
244
|
57 |
19 |
if /^;/ |
|
245
|
19 |
0 |
if (/^Zone,(\d+),/ and $addr->{'z'} == $1) |
|
246
|
1 |
18 |
if ($addr->{'z'} eq $addr->{'n'} and $addr->{'f'} == 0) |
|
252
|
21 |
101 |
if /^;/ |
|
253
|
13 |
88 |
if /^Region,/ |
|
254
|
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) { } |
|
258
|
2 |
11 |
if ($addr->{'f'} == 0) |
|
264
|
4 |
20 |
if /^;/ |
|
265
|
4 |
16 |
if /^Zone,/ or /^Region,/ or /^Host,/ |
|
268
|
7 |
9 |
if (/^,(\d+),/ || /^Hub,(\d+),/ || /^Pvt,(\d+),/ || /^Hold,(\d+),/ || /^Down,(\d+),/ || 0 and $addr->{'f'} == $1) |
|
288
|
4 |
15 |
if ($addr->{'p'}) |
|
292
|
0 |
8 |
if /^;/ |
|
293
|
0 |
8 |
if /^((Zone)|(Region)|(Host)|(Hub)|(Pvt)|(Hold)|(Down))?,/ |
|
295
|
4 |
4 |
if (/^Point,(\d+),/ and $1 == $addr->{'p'}) |
|
304
|
15 |
4 |
if ($found) { } |
|
308
|
15 |
0 |
if $self->{'__cache'} |