| line |
true |
false |
branch |
|
62
|
0 |
71 |
unless $self->ipv6 |
|
99
|
0 |
71 |
unless my $routehash = $self->{'routehash'} |
|
103
|
26 |
120 |
if (@areas > 1) { } |
|
105
|
2 |
1 |
unless $_->{'area'} |
|
|
1 |
25 |
if (my(@badareas) = map({() unless $_->{'area'};} grep({not $_->{'bits'}{'B'};} @{$$rv{"hashes"};}))) |
|
114
|
12 |
134 |
if ($rv->{'missing'}) { } |
|
120
|
1 |
160 |
if ($num > 1) |
|
139
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
207
|
71 |
71 |
$type eq 'pointtopoint' ? : |
|
208
|
71 |
71 |
$type eq 'pointtopoint' ? : |
|
209
|
0 |
142 |
unless my $routehash = $self->{'routehash'} |
|
210
|
0 |
142 |
unless my $linkhash = $$self{$type . "hash"} |
|
224
|
2 |
20 |
if ($type ne "pointtopoint" and @hashes > 1) |
|
229
|
4 |
18 |
if (not $routehash->{$dstrid}{'areas'}{$area}) { } |
|
|
2 |
16 |
elsif (not $linkhash->{$rid} && $linkhash->{$rid}{$area} && $linkhash->{$rid}{$area}{$dstrid} || $routehash->{$dstrid}{'missing'}) { } |
|
243
|
1 |
12 |
if ($type eq "pointtopoint" and ($ifaddrs->{$intf} and $ifaddrs->{$intf}{$rid} > 1)) |
|
293
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
294
|
0 |
71 |
unless my $transithash = $self->{'transithash'} |
|
301
|
2 |
54 |
if (not $nethash->{$addr}{$netrid} and keys %$nv > 1) |
|
310
|
1 |
59 |
if (not $nethash->{$addr}{$netrid} and keys %$ev > 1) |
|
317
|
95 |
9 |
unless $rv->{'graph'} |
|
319
|
1 |
8 |
if ($nethash->{$addr}{$netrid}) { } |
|
|
2 |
6 |
elsif (not $colors{'orange'} || $colors{'blue'}) { } |
|
340
|
0 |
106 |
unless my $nethash = $self->{'nethash'} |
|
346
|
104 |
2 |
unless ($elem) |
|
349
|
9 |
95 |
unless ($nethash->{$addr}{$netrid} and $nethash->{$addr}{$netrid}{$area}) |
|
367
|
0 |
71 |
unless my $transithash = $self->{'transithash'} |
|
376
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
377
|
0 |
71 |
unless my $routehash = $self->{'routehash'} |
|
378
|
0 |
71 |
unless my $transithash = $self->{'transithash'} |
|
393
|
2 |
102 |
if (@{$rv->{'hashes'};} > 1) |
|
401
|
3 |
103 |
if ($ifaddrs->{$intf} and $ifaddrs->{$intf}{$rid} > 1) |
|
408
|
46 |
60 |
$netrid eq $rid && $addr eq $intf ? : |
|
413
|
10 |
96 |
if ($rv->{'graph'}) |
|
430
|
0 |
96 |
unless my $ev = $nv->{$area} |
|
434
|
2 |
94 |
unless ($ev->{'attachrouters'}{$rid}) |
|
488
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
489
|
0 |
71 |
unless my $nets = $self->{'nets'} |
|
497
|
3 |
50 |
if ($nets->{$addr}{$rid} > 1) |
|
502
|
1 |
52 |
if (keys %$rv > 1) |
|
508
|
1 |
53 |
if ($ev->{'missing'}) { } |
|
514
|
2 |
51 |
if (@{$ev->{'hashes'};} > 1) |
|
521
|
1 |
52 |
if (@attrids == 0) |
|
526
|
1 |
52 |
if (@attrids == 1) |
|
556
|
53 |
2 |
unless ($elem) |
|
584
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
585
|
0 |
71 |
unless my $nets = $self->{'nets'} |
|
586
|
0 |
71 |
unless my $netareas = $self->{'netareas'} |
|
594
|
1 |
2 |
unless ($elem) |
|
620
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
629
|
0 |
71 |
unless my $nethash = $self->{'nethash'} |
|
630
|
0 |
71 |
unless my $routehash = $self->{'routehash'} |
|
631
|
0 |
71 |
unless my $transithash = $self->{'transithash'} |
|
646
|
2 |
107 |
if ($attcolors{$arid}) |
|
653
|
4 |
103 |
if ($routehash->{$arid}{'areas'} and not $routehash->{$arid}{'areas'}{$area}) |
|
661
|
1 |
6 |
unless ($tv or $routehash->{$arid}{'missing'}) |
|
667
|
5 |
44 |
if ($arid eq $rid and $tv and not grep({$addr eq $_->{'interface'};} @{$$tv{"hashes"};})) |
|
678
|
0 |
109 |
unless my $dst = $routehash->{$arid}{'graph'}{'N'} |
|
680
|
54 |
55 |
if ($arid eq $rid) |
|
694
|
4 |
52 |
unless ($attcolors{$rid}) |
|
696
|
0 |
4 |
unless my $dst = $routehash->{$rid}{'graph'}{'N'} |
|
745
|
0 |
52 |
unless my $netareas = $self->{'netareas'} |
|
746
|
0 |
52 |
unless my $sumhash = $self->{'sumhash'} |
|
754
|
5 |
4 |
if (@areas > 1) { } |
|
795
|
9 |
8 |
unless ($elem) |
|
817
|
0 |
52 |
unless my $routehash = $self->{'routehash'} |
|
818
|
0 |
52 |
unless my $sumhash = $self->{'sumhash'} |
|
819
|
0 |
52 |
unless my $sumlsids = $self->{'sumlsids'} |
|
831
|
0 |
17 |
unless my $dst = $routehash->{$rid}{'graph'}{'N'} |
|
835
|
1 |
16 |
unless ($routehash->{$rid}{'areas'}{$area}) |
|
840
|
4 |
13 |
if ($lv->{'arearids'}{$area}{$rid} > 1) |
|
845
|
4 |
13 |
if ($sumlsids->{$area}{$rid}{$addr} > 1) |
|
861
|
17 |
0 |
if $src |
|
904
|
20 |
12 |
unless ($elem) |
|
925
|
0 |
52 |
unless my $routehash = $self->{'routehash'} |
|
926
|
0 |
52 |
unless my $boundhash = $self->{'boundhash'} |
|
927
|
0 |
52 |
unless my $boundlsids = $self->{'boundlsids'} |
|
933
|
13 |
7 |
if ($bv->{'graph'}) { } |
|
|
7 |
0 |
elsif ($routehash->{$asbr}) { } |
|
941
|
0 |
32 |
unless my $dst = $routehash->{$rid}{'graph'}{'N'} |
|
945
|
1 |
31 |
if ($asbr eq $rid) { } |
|
|
1 |
30 |
elsif ($routehash->{$asbr} and $routehash->{$asbr}{'areas'}{$area}) { } |
|
953
|
2 |
30 |
unless ($routehash->{$rid}{'areas'}{$area}) |
|
958
|
6 |
26 |
if ($bv->{'arearids'}{$area}{$rid} > 1) |
|
963
|
4 |
28 |
if ($boundlsids->{$area}{$rid}{$addr} > 1) |
|
979
|
32 |
0 |
if $src |
|
1011
|
0 |
52 |
unless my $nets = $self->{'nets'} |
|
1013
|
0 |
52 |
unless my $externhash = $self->{'externhash'} |
|
1055
|
12 |
12 |
unless ($elem) |
|
1076
|
0 |
52 |
unless my $routehash = $self->{'routehash'} |
|
1079
|
0 |
52 |
unless my $externhash = $self->{'externhash'} |
|
1080
|
0 |
52 |
unless my $externlsids = $self->{'externlsids'} |
|
1096
|
7 |
17 |
if ($lv->{'routers'}{$rid} > 1) |
|
1101
|
7 |
17 |
if ($externlsids->{$rid}{$addr} > 1) |
|
1106
|
21 |
3 |
$type == 1 ? : |
|
1113
|
15 |
9 |
if ($routehash->{$rid}) |
|
1115
|
0 |
15 |
unless my $dst = $routehash->{$rid}{'graph'}{'N'} |
|
1122
|
15 |
0 |
if $src |
|
1126
|
9 |
0 |
unless ($av) |
|
1128
|
0 |
9 |
unless my $dst = $boundhash->{$rid}{'graph'}{'N'} |
|
1135
|
9 |
0 |
if $src |
|
1141
|
0 |
0 |
unless my $dst = $boundaggr->{$asbraggr}{'graph'}{'N'} |
|
1149
|
0 |
0 |
if (grep {not /^(gray|black)$/;} keys %colors) { } |
|
1150
|
0 |
0 |
if $src |
|
1156
|
12 |
0 |
if $src |
|
1177
|
0 |
0 |
unless my $externhash = $self->{'externhash'} |
|
1185
|
0 |
0 |
if $mv->{'graph'}{'C'} |
|
1188
|
0 |
0 |
if grep {not /^(gray|black)$/;} keys %$colors |
|
1194
|
0 |
0 |
if (not $elem) { } |
|
|
0 |
0 |
elsif (not $elem->{'colors'}{'gray'} && $colors->{'gray'} or $elem->{'colors'}{'gray'} ne $colors->{'gray'}) { } |
|
1202
|
0 |
0 |
unless $colors->{'black'} |
|
1215
|
0 |
0 |
unless ($elem) |
|
1228
|
0 |
0 |
if (not $elem->{'colors'}) { } |
|
|
0 |
0 |
elsif (not $elem->{'colors'}{'gray'} && $colors->{'gray'} or $elem->{'colors'}{'gray'} ne $colors->{'gray'}) { } |
|
1234
|
0 |
0 |
unless $colors->{'black'} |
|
1275
|
0 |
2 |
unless my $lnkhash = $self->{'lnkhash'} |
|
1300
|
0 |
4 |
unless $l->{'prefixes'} |
|
1302
|
4 |
0 |
unless ($elem) |
|
1321
|
0 |
2 |
unless my $lnkhash = $self->{'lnkhash'} |
|
1330
|
0 |
2 |
unless my $lnkhash = $self->{'lnkhash'} |
|
1331
|
0 |
2 |
unless my $routehash = $self->{'routehash'} |
|
1332
|
0 |
2 |
unless my $transithash = $self->{'transithash'} |
|
1333
|
0 |
2 |
unless my $transitnets = $self->{'transitnets'} |
|
1334
|
0 |
2 |
unless my $nethash = $self->{'nethash'} |
|
1343
|
0 |
4 |
unless my $rdst = $routehash->{$rid}{'graph'}{'N'} |
|
1359
|
4 |
0 |
unless my $tv = $transitnets->{$intf}{$rid}{$area} |
|
1366
|
0 |
0 |
unless my $ndst = $nethash->{$netaddr}{$netrid}{$area}{'graph'}{'N'} || $transithash->{$netaddr}{$netrid}{$area}{$rid}{'graph'}{'N'} |
|
1413
|
0 |
4 |
unless my $intraroutehash = $self->{'intraroutehash'} |
|
1433
|
4 |
0 |
unless ($elem) |
|
1446
|
0 |
4 |
unless $_->{'prefixes'} |
|
1455
|
0 |
4 |
unless my $intraroutehash = $self->{'intraroutehash'} |
|
1463
|
0 |
4 |
unless my $intraroutehash = $self->{'intraroutehash'} |
|
1464
|
0 |
4 |
unless my $routehash = $self->{'routehash'} |
|
1474
|
0 |
4 |
unless my $dst = $routehash->{$rid}{'graph'}{'N'} |
|
1526
|
0 |
4 |
unless my $intranethash = $self->{'intranethash'} |
|
1548
|
3 |
1 |
unless ($elem) |
|
1561
|
0 |
5 |
unless $_->{'prefixes'} |
|
1570
|
0 |
4 |
unless my $intranethash = $self->{'intranethash'} |
|
1579
|
0 |
4 |
unless my $intranethash = $self->{'intranethash'} |
|
1580
|
0 |
4 |
unless my $nethash = $self->{'nethash'} |
|
1581
|
0 |
4 |
unless my $routehash = $self->{'routehash'} |
|
1593
|
0 |
3 |
unless my $dst = $nethash->{$intf}{$rid}{$area}{'graph'}{'N'} |