| line |
true |
false |
branch |
|
178
|
0 |
0 |
unless $args{'PARENT'} |
|
179
|
0 |
0 |
unless $ret = $new->_parent($args{'PARENT'}) |
|
181
|
0 |
0 |
$args{'WHERE'} ? : |
|
187
|
0 |
0 |
unless defined $Supported_Options{$option} |
|
191
|
0 |
0 |
unless $ret = $new->$option($args{$_}) |
|
193
|
0 |
0 |
unless $ret = Unix::Conf::Bind8::Conf::_add_options($new) |
|
194
|
0 |
0 |
unless $ret = Unix::Conf::Bind8::Conf::_insert_in_list($new, $where, $warg) |
|
525
|
0 |
0 |
if (@_) |
|
526
|
0 |
0 |
if (ref $_[0]) { } |
|
527
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'Unix::Conf::Bind8::Conf::Acl')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
536
|
0 |
0 |
unless @{$_[0];} |
|
554
|
0 |
0 |
unless $acl = 'Unix::Conf::Bind8::Conf::Acl'->new('PARENT', $self->_parent, 'ELEMENTS', $elements) |
|
562
|
0 |
0 |
defined $$self{'options'}{$option} ? : |
|
573
|
0 |
0 |
unless @_ |
|
576
|
0 |
0 |
if (ref $_[0]) { } |
|
578
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'ARRAY') |
|
583
|
0 |
0 |
unless @{$_[0];} |
|
589
|
0 |
0 |
unless defined $$self{'options'}{$option} |
|
592
|
0 |
0 |
unless $ret = $$self{'options'}{$option}->add_elements($elements) |
|
602
|
0 |
0 |
unless @_ |
|
605
|
0 |
0 |
if (ref $_[0]) { } |
|
607
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'ARRAY') |
|
612
|
0 |
0 |
unless @{$_[0];} |
|
619
|
0 |
0 |
unless defined $$self{'options'}{$option} |
|
621
|
0 |
0 |
unless $ret = $$self{'options'}{$option}->delete_elements($elements) |
|
624
|
0 |
0 |
unless @{$$self{'options'}{$option}->elements;} |
|
632
|
0 |
0 |
defined $_[0]{'options'}{$option} ? : |
|
644
|
0 |
0 |
if (defined $arg) |
|
646
|
0 |
0 |
unless &{$Supported_Options{$option};}($arg) |
|
652
|
0 |
0 |
defined $$self{'options'}{$option} ? : |
|
663
|
0 |
0 |
unless defined $_[0]{'options'}{$option} |
|
688
|
0 |
0 |
unless defined $Supported_Options{$option} |
|
690
|
0 |
0 |
unless defined $$self{'options'}{$option} |
|
715
|
0 |
0 |
if (@_) |
|
717
|
0 |
0 |
if (@_ == 1) { } |
|
718
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'HASH') |
|
725
|
0 |
0 |
if ($$args{'ADDRESS'}) |
|
726
|
0 |
0 |
unless __valid_ipaddress($$args{'ADDRESS'}) or $$args{'ADDRESS'} eq '*' |
|
729
|
0 |
0 |
if ($$args{'PORT'}) |
|
730
|
0 |
0 |
unless __valid_port($$args{'PORT'}) or $$args{'PORT'} eq '*' |
|
738
|
0 |
0 |
defined $$self{'options'}{'query-source'} ? : |
|
771
|
0 |
0 |
if (@_ > 1) { } |
|
|
0 |
0 |
elsif (@_ == 1 and UNIVERSAL::isa($_[0], 'HASH')) { } |
|
778
|
0 |
0 |
if ($check_names) |
|
780
|
0 |
0 |
unless $type =~ /^(master|slave|response)$/i |
|
782
|
0 |
0 |
unless __valid_checknames($$check_names{$type}) |
|
792
|
0 |
0 |
unless $$self{'options'}{'check-names'} |
|
794
|
0 |
0 |
if (@_ == 1) |
|
796
|
0 |
0 |
unless defined($value = $$self{'options'}{'check-names'}{lc $_[0]}) |
|
821
|
0 |
0 |
unless @_ > 1 |
|
826
|
0 |
0 |
unless $$self{'options'}{'check-names'} |
|
828
|
0 |
0 |
unless $type =~ /^(master|slave|response)$/i |
|
830
|
0 |
0 |
if $$self{'options'}{'check-names'}{$type} |
|
832
|
0 |
0 |
unless __valid_checknames($check_names{$type}) |
|
855
|
0 |
0 |
unless @_ |
|
859
|
0 |
0 |
unless $type =~ /^(master|slave|response)$/i |
|
861
|
0 |
0 |
unless $$self{'options'}{'check-names'}{lc $type} |
|
870
|
0 |
0 |
unless keys %{$$self{'options'}{'check-names'};} |
|
891
|
0 |
0 |
unless defined $$self{'options'}{'check-names'} |
|
894
|
0 |
0 |
if (@_) { } |
|
896
|
0 |
0 |
unless $type =~ /^(master|slave|response)$/i |
|
898
|
0 |
0 |
unless $$self{'options'}{'check-names'}{uc $type} |
|
932
|
0 |
0 |
if (@_) |
|
933
|
0 |
0 |
if (ref $_[0]) { } |
|
934
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'ARRAY') |
|
944
|
0 |
0 |
unless __valid_ipaddress $_ |
|
954
|
0 |
0 |
defined $$self{'options'}{'forwarders'} ? : |
|
978
|
0 |
0 |
unless @_ |
|
981
|
0 |
0 |
if (ref $_[0]) { } |
|
983
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'ARRAY') |
|
997
|
0 |
0 |
unless __valid_ipaddress $_ |
|
1000
|
0 |
0 |
if $$self{'options'}{'forwarders'}{$_} |
|
1026
|
0 |
0 |
unless @_ |
|
1029
|
0 |
0 |
if (ref $_[0]) { } |
|
1030
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'ARRAY') |
|
1041
|
0 |
0 |
unless __valid_ipaddress $_ |
|
1044
|
0 |
0 |
unless $$self{'options'}{'forwarders'}{$_} |
|
1050
|
0 |
0 |
unless keys %{$$self{'options'}{'forwarders'};} |
|
1087
|
0 |
0 |
unless @_ |
|
1090
|
0 |
0 |
if (@_ == 1) { } |
|
1091
|
0 |
0 |
unless UNIVERSAL::isa($_[0], 'HASH') |
|
1101
|
0 |
0 |
if $port and not __valid_port $port |
|
1104
|
0 |
0 |
unless UNIVERSAL::isa($$args{$port}, 'Unix::Conf::Bind8::Conf::Acl') or UNIVERSAL::isa($$args{$port}, 'ARRAY') |
|
1113
|
0 |
0 |
$port && $port == 53 ? : |
|
1114
|
0 |
0 |
if (UNIVERSAL::isa($$args{$port}, 'Unix::Conf::Bind8::Conf::Acl')) { } |
|
1115
|
0 |
0 |
unless $$args{$port}->_parent |
|
1119
|
0 |
0 |
unless $$args{$port} = 'Unix::Conf::Bind8::Conf::Acl'->new('PARENT', $self->_parent, 'ELEMENTS', $$args{$port}) |
|
1150
|
0 |
0 |
unless @_ |
|
1159
|
0 |
0 |
if $port and not __valid_port $port |
|
1162
|
0 |
0 |
unless UNIVERSAL::isa($args{$port}, 'ARRAY') |
|
1167
|
0 |
0 |
$port && $port == 53 ? : |
|
1170
|
0 |
0 |
unless ($$self{'options'}{'listen-on'}{$_port}) |
|
1173
|
0 |
0 |
unless $acl = 'Unix::Conf::Bind8::Conf::Acl'->new('PARENT', $self->_parent) |
|
1176
|
0 |
0 |
unless $ret = $$self{'options'}{'listen-on'}{$_port}->add_elements($args{$port}) |
|
1210
|
0 |
0 |
unless $$self{'options'}{'listen-on'} |
|
1213
|
0 |
0 |
if (defined $port) |
|
1214
|
0 |
0 |
if $port and not __valid_port $port |
|
1217
|
0 |
0 |
$port && $port == 53 ? : |
|
1220
|
0 |
0 |
unless $$self{'options'}{'listen-on'}{$_port} |
|
1229
|
0 |
0 |
unless @keys |
|
1256
|
0 |
0 |
unless $$self{'options'}{'listen-on'} |
|
1259
|
0 |
0 |
if (defined $port) |
|
1260
|
0 |
0 |
if $port and not __valid_port $port |
|
1263
|
0 |
0 |
$port && $port == 53 ? : |
|
1266
|
0 |
0 |
unless $$self{'options'}{'listen-on'}{$_port} |
|
1275
|
0 |
0 |
unless @keys |
|
1300
|
0 |
0 |
unless @_ |
|
1307
|
0 |
0 |
$port == 53 ? : |
|
1310
|
0 |
0 |
if $port and not __valid_port $port |
|
1313
|
0 |
0 |
unless UNIVERSAL::isa($args{$port}, 'ARRAY') |
|
1315
|
0 |
0 |
unless $$self{'options'}{'listen-on'}{$_port} |
|
1320
|
0 |
0 |
$port == 53 ? : |
|
1322
|
0 |
0 |
unless $ret = $$self{'options'}{'listen-on'}{$_port}->delete_elements($args{$port}) |
|
1326
|
0 |
0 |
unless @{$$self{'options'}{'listen-on'}{$_port}->elements;} |
|
1329
|
0 |
0 |
unless keys %{$$self{'options'}{'listen-on'};} |
|
1353
|
0 |
0 |
unless $$self{'options'}{'listen-on'} |
|
1356
|
0 |
0 |
if (@_) |
|
1358
|
0 |
0 |
if $port and not __valid_port $port |
|
1360
|
0 |
0 |
$port && $port == 53 ? : |
|
1363
|
0 |
0 |
unless $$self{'options'}{'listen-on'}{$_port} |
|
1371
|
0 |
0 |
if (keys %{$$self{'options'}{'listen-on'};}) |
|
1408
|
0 |
0 |
unless @_ |
|
1411
|
0 |
0 |
if (ref $_[0]) { } |
|
1412
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($_[0], 'ARRAY')) { } |
|
1429
|
0 |
0 |
unless $$itr{'CLASS'} |
|
1430
|
0 |
0 |
unless $$itr{'TYPE'} |
|
1431
|
0 |
0 |
unless $$itr{'NAME'} |
|
1432
|
0 |
0 |
unless $$itr{'CLASS'} =~ /^(ANY|IN)$/ |
|
1434
|
0 |
0 |
unless $$itr{'TYPE'} =~ /^(ANY|A|NS|MX)$/ |
|
1438
|
0 |
0 |
unless $$itr{'ORDER'} |
|
1440
|
0 |
0 |
unless $$itr{'ORDER'} =~ /^(fixed|random|cyclic)$/ |
|
1532
|
0 |
0 |
unless $$self{'options'}{'rrset-order'} |
|
1535
|
0 |
0 |
if defined $class and not $class |
|
1536
|
0 |
0 |
if defined $type and not $type |
|
1537
|
0 |
0 |
if defined $name and not $name |
|
1539
|
0 |
0 |
if defined $class and not $class =~ /^(ANY|IN)$/ |
|
1541
|
0 |
0 |
if defined $type and not $type =~ /^(ANY|A|NS|MX)$/ |
|
1544
|
0 |
0 |
if (defined $name) { } |
|
1547
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$name} |
|
1550
|
0 |
0 |
if (defined $class) { } |
|
1551
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$name}{$class} |
|
1554
|
0 |
0 |
if (defined $type) { } |
|
1555
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$name}{$class}{$type} |
|
1609
|
0 |
0 |
if (ref $_[0]) { } |
|
1610
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
1624
|
0 |
0 |
unless $$itr{'CLASS'} |
|
1625
|
0 |
0 |
unless $$itr{'TYPE'} |
|
1626
|
0 |
0 |
unless $$itr{'NAME'} |
|
1627
|
0 |
0 |
unless $$itr{'CLASS'} =~ /^(ANY|IN)$/ |
|
1629
|
0 |
0 |
unless $$itr{'TYPE'} =~ /^(ANY|A|NS|MX)$/ |
|
1633
|
0 |
0 |
unless $$itr{'ORDER'} |
|
1635
|
0 |
0 |
unless $$itr{'ORDER'} =~ /^(fixed|random|cyclic)$/ |
|
1637
|
0 |
0 |
if $$self{'options'}{'rrset-order'}{$$itr{'NAME'}}{$$itr{'CLASS'}}{$$itr{'TYPE'}} |
|
1675
|
0 |
0 |
if (ref $_[0]) { } |
|
1676
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
1690
|
0 |
0 |
unless $$itr{'CLASS'} |
|
1691
|
0 |
0 |
unless $$itr{'TYPE'} |
|
1692
|
0 |
0 |
unless $$itr{'NAME'} |
|
1693
|
0 |
0 |
unless $$itr{'CLASS'} =~ /^(ANY|IN)$/ |
|
1695
|
0 |
0 |
unless $$itr{'TYPE'} =~ /^(ANY|A|NS|MX)$/ |
|
1701
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$$itr{'NAME'}} |
|
1703
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$$itr{'NAME'}}{$$itr{'CLASS'}} |
|
1705
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$$itr{'NAME'}}{$$itr{'CLASS'}}{$$itr{'TYPE'}} |
|
1714
|
0 |
0 |
unless keys %{$$self{'options'}{'rrset-order'}{$$itr{'NAME'}}{$$itr{'CLASS'}};} |
|
1717
|
0 |
0 |
unless keys %{$$self{'options'}{'rrset-order'}{$$itr{'NAME'}};} |
|
1721
|
0 |
0 |
unless keys %{$$self{'options'}{'rrset-order'};} |
|
1750
|
0 |
0 |
unless $$self{'options'}{'rrset-order'} |
|
1753
|
0 |
0 |
if (defined $name) |
|
1756
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$name} |
|
1759
|
0 |
0 |
if (defined $class) |
|
1760
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$name}{$class} |
|
1763
|
0 |
0 |
if (defined $type) |
|
1764
|
0 |
0 |
unless $$self{'options'}{'rrset-order'}{$name}{$class}{$type} |
|
1768
|
0 |
0 |
if keys %{$$self{'options'}{'rrset-order'}{$name}{$class};} |
|
1772
|
0 |
0 |
if keys %{$$self{'options'}{'rrset-order'}{$name};} |
|
1776
|
0 |
0 |
if keys %{$$self{'options'}{'rrset-order'};} |
|
1797
|
0 |
0 |
wantarray ? : |
|
1837
|
0 |
0 |
if ($option eq 'forwarders') |
|
1842
|
0 |
0 |
if @$tmp |
|
1846
|
0 |
0 |
if ($option eq 'check-names') |
|
1852
|
0 |
0 |
if ($option eq 'listen-on') |
|
1857
|
0 |
0 |
if $_ |
|
1863
|
0 |
0 |
if ($option eq 'query-source') |
|
1867
|
0 |
0 |
if $$tmp{'PORT'} |
|
1869
|
0 |
0 |
if $$tmp{'ADDRESS'} |
|
1874
|
0 |
0 |
if ($option eq 'rrset-order') |
|
1881
|
0 |
0 |
if $class ne 'ANY' |
|
1882
|
0 |
0 |
if $type ne 'ANY' |
|
1883
|
0 |
0 |
if $name ne '*' |
|
1897
|
0 |
0 |
if ($option =~ /^(@AclOptions)$/) |
|
1902
|
0 |
0 |
if ($option =~ /^(@StringOptions)$/) |