| line |
true |
false |
branch |
|
48
|
3 |
0 |
if (exists $$args{'Type'}) { } |
|
|
0 |
0 |
elsif (exists $$args{'Ref'}) { } |
|
49
|
1 |
2 |
if (exists $$args{'Instance'}) { } |
|
|
2 |
0 |
elsif (exists $$args{'Lower'}) { } |
|
|
0 |
0 |
elsif (exists $$args{'Upper'}) { } |
|
54
|
1 |
1 |
unless exists $$args{'Upper'} |
|
59
|
0 |
0 |
unless exists $$args{'Lower'} |
|
93
|
0 |
108 |
unless defined $ref |
|
95
|
0 |
108 |
unless exists $valid{$addrtype} |
|
105
|
0 |
87 |
unless (exists $valid_args{$key}) |
|
110
|
0 |
0 |
if ($lckey eq lc $goodkey) |
|
118
|
0 |
0 |
unless $fixed |
|
128
|
4 |
21 |
if (exists $$args{'Id'}) { } |
|
|
0 |
21 |
elsif (exists $$args{'Name'}) { } |
|
|
0 |
21 |
elsif (exists $$args{'Nameseq'}) { } |
|
130
|
1 |
3 |
if exists $$args{'Ref'} |
|
131
|
0 |
4 |
unless tipc_parse_string(\%details, $$args{'Id'}) |
|
135
|
4 |
0 |
if exists $details{'Ref'} |
|
137
|
0 |
0 |
unless tipc_parse_string(\%details, $$args{'Name'}) |
|
141
|
0 |
0 |
unless tipc_parse_string(\%details, $$args{'Nameseq'}) |
|
146
|
4 |
21 |
if (exists $details{'AddrType'}) |
|
147
|
2 |
2 |
unless exists $$args{'AddrType'} |
|
162
|
0 |
25 |
unless defined $ref |
|
164
|
0 |
87 |
unless exists $$args{$key} |
|
352
|
25 |
0 |
if (@_) |
|
353
|
5 |
20 |
if (scalar @_ & 1) |
|
354
|
0 |
5 |
unless tipc_parse_string(\%args, shift()) |
|
359
|
0 |
25 |
unless fixup_hash_names(\%args) |
|
361
|
0 |
25 |
unless string_parsing_stuff(\%args) |
|
362
|
3 |
22 |
unless (exists $args{'AddrType'}) |
|
363
|
0 |
3 |
unless divine_address_type(\%args) |
|
366
|
0 |
25 |
unless validate_args_for_address_type(\%args) |
|
368
|
13 |
12 |
if ($args{'AddrType'} eq 'name') |
|
369
|
4 |
9 |
if (exists $args{'Domain'}) { } |
|
370
|
2 |
2 |
unless (looks_like_number($args{'Domain'})) |
|
373
|
0 |
2 |
unless $$href{'AddrType'} eq 'id' |
|
381
|
7 |
18 |
if (exists $args{'Scope'}) { } |
|
393
|
4 |
3 |
unless (exists $valid_scopes{$scope}) |
|
394
|
4 |
0 |
if exists $scope_values{lc $scope} |
|
398
|
0 |
7 |
unless exists $valid_scopes{$scope} |
|
405
|
0 |
25 |
unless check_prereqs_for_address_type(\%args) |
|
408
|
6 |
19 |
if ($args{'AddrType'} eq 'id') { } |
|
|
13 |
6 |
elsif ($args{'AddrType'} eq 'name') { } |
|
|
6 |
0 |
elsif ($args{'AddrType'} eq 'nameseq') { } |
|
538
|
1 |
1 |
unless (looks_like_number $addr) |
|
541
|
0 |
1 |
unless $$components{'AddrType'} eq 'id' |
|
551
|
1 |
1 |
unless (looks_like_number $addr) |
|
554
|
0 |
1 |
unless $$components{'AddrType'} eq 'id' |
|
573
|
1 |
2 |
unless (looks_like_number $addr) |
|
576
|
0 |
1 |
unless $$components{'AddrType'} eq 'id' |
|
598
|
1 |
2 |
unless (looks_like_number $addr) |
|
601
|
0 |
1 |
unless $$components{'AddrType'} eq 'id' |
|
617
|
1 |
2 |
unless (looks_like_number $addr) |
|
620
|
0 |
1 |
unless $$components{'AddrType'} eq 'id' |
|
640
|
1 |
8 |
unless (looks_like_number $zone) |
|
644
|
0 |
1 |
unless $$components{'AddrType'} eq 'id' |
|
685
|
12 |
5 |
if ($string =~ /^<(\d+)\.(\d+)\.(\d+)(:(\d+))?>$/) |
|
690
|
3 |
9 |
if defined $5 |
|
691
|
8 |
4 |
unless defined $$args{'Ref'} |
|
695
|
0 |
17 |
if ($string =~ /^(\d+)$/) |
|
704
|
1 |
16 |
if ($string =~ /^0x([0-9a-fA-F]{1,8})$/) |
|
713
|
2 |
15 |
if ($string =~ /^\{(\d+),\s*(\d+)\}$/) |
|
720
|
2 |
15 |
if ($string =~ /^\{(\d+),\s*(\d+),\s*(\d+)\}$/) |
|
727
|
0 |
17 |
unless $valid |