| line |
true |
false |
branch |
|
22
|
27 |
7 |
if (exists $args{'$'}) |
|
28
|
17 |
17 |
if (exists $args{'@'}) |
|
34
|
1 |
33 |
if (exists $args{'%'}) |
|
40
|
6 |
28 |
if (exists $args{'_initialize'} or exists $args{'_digest_args'}) |
|
43
|
6 |
0 |
if (exists $args{'_initialize'}) |
|
46
|
0 |
6 |
if (exists $args{'_digest_args'}) |
|
55
|
44 |
1 |
if ($ref eq 'ARRAY') { } |
|
|
1 |
0 |
elsif ($ref eq '') { } |
|
70
|
0 |
193 |
unless defined $accessor |
|
71
|
24 |
169 |
ref $accessor eq 'ARRAY' ? : |
|
74
|
0 |
193 |
unless $singular =~ /^$VALID_ACCESSOR_NAME$/ |
|
87
|
177 |
16 |
unless (grep {$_ eq $typeglob;} keys %AUTO_ACCESSORS) |
|
104
|
10 |
108 |
if AutoCode::SymbolTableUtils::CODE_exists_in_ST($typeglob) |
|
106
|
0 |
108 |
if defined &$typeglob |
|
109
|
107 |
339 |
if @_ |
|
116
|
66 |
84 |
ref $accessor eq 'ARRAY' ? : |
|
128
|
4 |
186 |
if AutoCode::SymbolTableUtils::CODE_exists_in_ST($typeglob) |
|
140
|
0 |
120 |
unless @_ |
|
144
|
0 |
120 |
if grep /^$value$/, @{$$self{$slot};} |
|
155
|
150 |
51 |
if exists $$self{$slot} |
|
183
|
2 |
21 |
if defined &$typeglob |
|
196
|
0 |
3 |
unless @_ |
|
197
|
1 |
2 |
unless exists $$self{$slot} |
|
209
|
3 |
1 |
if (exists $$self{$slot} and defined $$self{$slot}) { } |
|
223
|
0 |
0 |
if (@_) { } |
|
234
|
0 |
0 |
if exists $args{'$'} |
|
235
|
0 |
0 |
if exists $args{'@'} |
|
245
|
24 |
0 |
if (exists $$hash{'$'}) |
|
249
|
24 |
0 |
if (exists $$hash{'@'}) |
|
258
|
24 |
0 |
if (@scalar_attrs or @array_attrs) |
|
260
|
24 |
0 |
unless @scalar_attrs == 0 |
|
305
|
4 |
2 |
if defined $home_address |
|
|
4 |
2 |
if defined $first_name |
|
|
4 |
2 |
if defined $birthday |
|
|
1 |
4 |
if defined $nric |
|
|
2 |
3 |
if defined $last_name |
|
|
1 |
4 |
if (ref $emails eq 'ARRAY') { } |
|
|
1 |
4 |
if (ref $aliases eq 'ARRAY') { } |
|
|
3 |
2 |
if defined $peer_string |
|
|
3 |
2 |
if (ref $peers eq 'ARRAY') { } |
|
|
2 |
3 |
if (ref $extras eq 'ARRAY') { } |
|
|
4 |
1 |
if defined $adaptor |
|
306
|
0 |
24 |
if $@ |