| line |
true |
false |
branch |
|
110
|
0 |
0 |
unless $args{'PARENT'} |
|
111
|
0 |
0 |
unless $ret = $new->_parent($args{'PARENT'}) |
|
112
|
0 |
0 |
if $args{'INET'} |
|
114
|
0 |
0 |
if $args{'UNIX'} |
|
116
|
0 |
0 |
unless $ret = Unix::Conf::Bind8::Conf::_add_controls($new) |
|
118
|
0 |
0 |
unless $args{'WHERE'} |
|
119
|
0 |
0 |
unless $ret = Unix::Conf::Bind8::Conf::_insert_in_list($new, $args{'WHERE'}, $args{'WARG'}) |
|
146
|
0 |
0 |
if ($addr) |
|
147
|
0 |
0 |
unless $addr eq '*' or __valid_ipaddress $addr |
|
149
|
0 |
0 |
unless __valid_port $port |
|
151
|
0 |
0 |
if (ref $allow) { } |
|
152
|
0 |
0 |
if (UNIVERSAL::isa($allow, 'ARRAY')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($allow, 'Unix::Conf::Bind8::Conf::Acl')) { } |
|
153
|
0 |
0 |
unless $acl = 'Unix::Conf::Bind8::Conf::Acl'->new('PARENT', $self->_parent, 'ELEMENTS', $allow) |
|
172
|
0 |
0 |
unless $acl = 'Unix::Conf::Bind8::Conf::Acl'->new('PARENT', $self - _parent(), 'ELEMENTS', [$allow]) |
|
182
|
0 |
0 |
defined $$self{'inet'} ? : |
|
200
|
0 |
0 |
defined $$self{'inet'} ? : |
|
229
|
0 |
0 |
if ($path) |
|
230
|
0 |
0 |
if $path =~ /^[^"]/ |
|
231
|
0 |
0 |
unless $perm =~ /^\d+$/ |
|
233
|
0 |
0 |
unless $perm =~ /^\d+$/ |
|
235
|
0 |
0 |
unless $perm =~ /^\d+$/ |
|
242
|
0 |
0 |
defined $$self{'unix'} ? : |
|
258
|
0 |
0 |
unless defined $$self{'inet'} |
|
276
|
0 |
0 |
unless defined $$self{'unix'} |
|
289
|
0 |
0 |
if ($tmp = $self->inet) |
|
295
|
0 |
0 |
if ($tmp = $self->unix) |