| line |
true |
false |
branch |
|
46
|
0 |
0 |
if $config |
|
58
|
0 |
0 |
if (defined $file) |
|
70
|
0 |
0 |
if (defined $dir) |
|
92
|
0 |
0 |
if ($keyname =~ /^\s*(zi)\-(\S+)\-([^\-]+)\s*$/i) { } |
|
|
0 |
0 |
elsif ($keyname =~ /^\s*(ip|zo)\-(\S+)\s*$/i) { } |
|
100
|
0 |
0 |
if ($t_type eq 'ip') |
|
114
|
0 |
0 |
unless (defined $$self{'TSIG'}) |
|
118
|
0 |
0 |
unless (defined ${$$self{'TSIG'};}{$keyname}) |
|
121
|
0 |
0 |
if (-f "$t_file") |
|
123
|
0 |
0 |
if (open TSIGINPUT, "$t_file") |
|
146
|
0 |
0 |
if (defined $algs{$t_alg}) { } |
|
160
|
0 |
0 |
if (defined ${$$self{'TSIG'};}{$keyname}) |
|
165
|
0 |
0 |
unless (defined ${$$self{'TSIG'};}{$t_real}) |
|
177
|
0 |
0 |
unless (defined ${$$self{'TSIG'};}{$t_real}{'done'}) |
|
188
|
0 |
0 |
if ($t_type eq 'ip' and not defined ${$$self{'TSIG'};}{$keyname}{'done'} and defined $t_ip) |
|
213
|
0 |
0 |
unless scalar @lines |
|
215
|
0 |
0 |
unless $$self{'CONFIG'} |
|
233
|
0 |
0 |
unless $line =~ /^\s*(\S+)\s*=\s*\"(.*)\"\s*(\#.*)?$/ |
|
237
|
0 |
0 |
unless defined $nsdc_h{$name} |
|
240
|
0 |
0 |
if ($tval =~ /^CP:(\S+.*)\s*$/) { } |
|
|
0 |
0 |
elsif ($tval eq 'SPECIAL' and $name eq 'nsdflags') { } |
|
|
0 |
0 |
elsif ($tval eq 'SPECIAL' and $name eq 'nsdkeysdir') { } |
|
251
|
0 |
0 |
if ($kkey =~ /^\s*\-[ap]\s*$/) { } |
|
|
0 |
0 |
elsif (defined $curflag) { } |
|
254
|
0 |
0 |
if ($curflag eq '-a') { } |
|
|
0 |
0 |
elsif ($curflag eq '-p') { } |
|
297
|
0 |
0 |
unless $line =~ /^\s*zone\s+(\S+)\s+(\S+)\s*(\S*.*)\s*$/ |
|
315
|
0 |
0 |
if ($this_rest =~ /masters\s*((\s+(\d+\.){3,3}\d+|\s+(([0-9a-f]*:){1,15}(:[0-9a-f]+){1,15}))){1,}\s*(notify|$)/) |
|
320
|
0 |
0 |
if (defined $nsdkeysdir) |
|
321
|
0 |
0 |
if (-f $nsdkeysdir . '/ip-' . $tval . '.tsiginfo') |
|
325
|
0 |
0 |
if defined $tmpstr |
|
327
|
0 |
0 |
if (-f $nsdkeysdir . '/zi-' . $this_zone . '-' . $tval . '.tsiginfo') { } |
|
|
0 |
0 |
elsif (-f $nsdkeysdir . '/zo-' . $this_zone . '.tsiginfo') { } |
|
331
|
0 |
0 |
if defined $tmpstr |
|
332
|
0 |
0 |
if defined $keyname |
|
337
|
0 |
0 |
if defined $tmpstr |
|
338
|
0 |
0 |
if defined $keyname |
|
348
|
0 |
0 |
if ($this_rest =~ /notify\s*((\s+(\d+\.){3,3}\d+|\s+(([0-9a-f]*:){1,15}(:[0-9a-f]+){1,15}))){1,}\s*(masters|$)/) |
|
359
|
0 |
0 |
if (defined $nsdkeysdir) |
|
360
|
0 |
0 |
if (-f $nsdkeysdir . '/zo-' . $this_zone . '.tsiginfo') |
|
362
|
0 |
0 |
if defined $tmpstr |
|
363
|
0 |
0 |
if defined $keyname |
|
385
|
0 |
0 |
if (eval "require $tmp") { } |
|
394
|
0 |
0 |
if ($@) |
|
414
|
0 |
0 |
unless $file |
|
415
|
0 |
0 |
unless $$self{'CONFIG'} |
|
422
|
0 |
0 |
if ($file) |
|
423
|
0 |
0 |
if (open FILE, ">$file") { } |
|
436
|
0 |
0 |
unless $tmpref =~ /^DNS::Config::Statement::Zone$/ |
|
445
|
0 |
0 |
if (scalar @masters > 0) |
|
454
|
0 |
0 |
if (scalar @anotify > 0) |
|
469
|
0 |
0 |
if ($infile) |
|
484
|
0 |
0 |
unless $file |
|
485
|
0 |
0 |
unless $$self{'CONFIG'} |
|
492
|
0 |
0 |
if ($file) |
|
493
|
0 |
0 |
if (open FILE, ">$file") { } |
|
506
|
0 |
0 |
unless $tmpref =~ /^DNS::Config::Statement::Options$/ |
|
509
|
0 |
0 |
if (defined $$statement{'NAMED-XFER'}) |
|
514
|
0 |
0 |
if (defined $$statement{'DIRECTORY'}) |
|
520
|
0 |
0 |
if (defined $self->nsdkeysdir) { } |
|
|
0 |
0 |
elsif (defined $$statement{'NSDKEYSDIR'}) { } |
|
|
0 |
0 |
elsif (defined $$statement{'DIRECTORY'}) { } |
|
529
|
0 |
0 |
if (defined $$statement{'LISTEN-ON'}) |
|
536
|
0 |
0 |
if (not ref $kkey) { } |
|
537
|
0 |
0 |
if ($kkey =~ /port/i) { } |
|
545
|
0 |
0 |
if (ref $kkey2) |
|
549
|
0 |
0 |
if ($kkey2 =~ /any/) { } |
|
570
|
0 |
0 |
if ($infile) |
|
585
|
0 |
0 |
unless defined $dir |
|
588
|
0 |
0 |
unless -d $dir |
|
589
|
0 |
0 |
unless -r $dir |
|
590
|
0 |
0 |
unless -w $dir |
|
591
|
0 |
0 |
unless -x $dir |
|
612
|
0 |
0 |
unless $tref =~ /^DNS::Config::Statement::(Key|Zone|Server)$/ |
|
615
|
0 |
0 |
if ($this_ref eq 'Key') { } |
|
|
0 |
0 |
elsif ($this_ref eq 'Server') { } |
|
|
0 |
0 |
elsif ($this_ref eq 'Zone') { } |
|
620
|
0 |
0 |
if ($talg =~ /\D/) |
|
633
|
0 |
0 |
if (ref $kkey) { } |
|
659
|
0 |
0 |
if (ref $kkey) { } |
|
670
|
0 |
0 |
if ($twhat =~ /key/i) { } |
|
|
0 |
0 |
elsif ($twhat =~ /port/i) { } |
|
681
|
0 |
0 |
if (defined $tkey) |
|
695
|
0 |
0 |
if defined $keys_written{$kkey} |
|
696
|
0 |
0 |
unless defined $keys{$tkey}{'name'} |
|
702
|
0 |
0 |
if ($kkey =~ /^zi-\S+-([^\-]+).tsiginfo$/) { } |
|
|
0 |
0 |
elsif ($kkey =~ /^ip-(\S+).tsiginfo$/) { } |
|
711
|
0 |
0 |
if (open TSIGOUT, "> $dir/$kkey") |
|
718
|
0 |
0 |
if (ref $keys{$tkey}{'secret'}) { } |
|
767
|
0 |
0 |
if (grep {$char eq $_;} keys %matching) { } |
|
|
0 |
0 |
elsif (grep {$char eq $_;} values %matching) { } |
|
776
|
0 |
0 |
if not defined $expected or $char ne $expected |
|
778
|
0 |
0 |
unless ref $tree |
|
783
|
0 |
0 |
if (not $noe or ref $$tree[$noe - 1] eq 'ARRAY') { } |
|
792
|
0 |
0 |
if scalar @stack |
|
803
|
0 |
0 |
if (not ref $line) { } |
|
808
|
0 |
0 |
unless $parts[0] |
|
810
|
0 |
0 |
if ($parts[$#parts - 1] eq '') { } |
|
819
|
0 |
0 |
if ($temp) |
|
832
|
0 |
0 |
unless ($full) |