| line |
true |
false |
branch |
|
48
|
0 |
0 |
if "ARRAY" eq ref $attr
|
|
63
|
0 |
52 |
unless defined $allowed
|
|
72
|
20 |
114 |
if not defined $spec or ref $spec
|
|
76
|
76 |
38 |
if ($spec ne 1)
|
|
80
|
15 |
61 |
if length $alt_name
|
|
84
|
0 |
76 |
if (ref $attrs and @{$attrs;} > 1)
|
|
87
|
0 |
0 |
if exists $spec{'alt_name'}
|
|
90
|
0 |
0 |
if defined $opt{'predicate'} and $opt{'predicate'} ne 1
|
|
93
|
0 |
76 |
if ($tag eq "TO_JSON")
|
|
96
|
0 |
0 |
if @types
|
|
103
|
27 |
49 |
if exists $spec{'omit_if_empty'}
|
|
106
|
36 |
40 |
if $spec{'if_exists'}
|
|
120
|
0 |
114 |
ref $attrs ? :
|
|
122
|
36 |
78 |
if ($spec{'if_exists'})
|
|
127
|
1 |
35 |
substr($attr, 0, 1) eq '_' ? :
|
|
|
36 |
0 |
$opt{'predicate'} eq '1' ? :
|