line |
true |
false |
branch |
93
|
1 |
0 |
if (defined $_[1]) |
99
|
0 |
1 |
if (not defined $args{'header'}) { } |
|
0 |
1 |
elsif (not defined $args{'footer'}) { } |
|
0 |
1 |
elsif (not defined $args{'output'}) { } |
|
0 |
1 |
elsif (not defined $args{'vars'}) { } |
|
0 |
1 |
elsif (not -f $args{'header'}) { } |
|
0 |
1 |
elsif (not -f $args{'footer'}) { } |
|
0 |
1 |
elsif (ref $args{'vars'} ne 'HASH') { } |
|
0 |
1 |
elsif ($args{'footer'} eq $args{'header'}) { } |
|
0 |
1 |
elsif ($args{'footer'} eq $args{'output'}) { } |
|
0 |
1 |
elsif ($args{'header'} eq $args{'output'}) { } |
177
|
0 |
1 |
if (ref $object ne 'Net::DHCP::Config::Utilities') |
189
|
0 |
1 |
unless $template->process($self->{'header'}, $self->{'vars'}, \$header) |
192
|
0 |
1 |
unless $template->process($self->{'footer'}, $self->{'vars'}, \$footer) |
201
|
1 |
1 |
if ($desc ne '') |
218
|
4 |
20 |
if (defined $value) |
221
|
0 |
4 |
if ($option eq 'next-server' or $option eq 'tftp-server') { } |
|
0 |
4 |
elsif ($option eq 'filename' or $option eq 'bootfile') { } |
240
|
1 |
0 |
unless ($no_write) |
242
|
0 |
1 |
unless open $fh, '>', $self->{'output'} |
248
|
0 |
1 |
if ($? == 0) |
251
|
0 |
0 |
if ($? != 0) |