Branch Coverage

blib/lib/JSON/Transform.pm
Criterion Covered Total %
branch 79 100 79.0


line true false branch
47 8 19 if ($name eq 'transformImpliedDest') { }
17 2 elsif ($name eq 'transformCopy') { }
2 0 elsif ($name eq 'transformMove') { }
55 0 2 unless _pointer(1, $data, $srcptr)
64 11 14 if ($mapping) { }
66 0 11 if $opFrom eq '<%' and ref $srcdata ne 'HASH'
68 0 11 if $opFrom eq '<@' and ref $srcdata ne 'ARRAY'
83 24 3 if ($name eq 'jsonPointer') { }
3 0 elsif ($name eq 'variableUser') { }
98 2 9 if ($name eq 'exprObjectMapping') { }
6 3 elsif ($name eq 'exprArrayMapping') { }
3 0 elsif ($name eq 'exprSingleValue') { }
129 21 51 if $pairs
130 18 54 if $pair
137 48 146 if ($name eq 'jsonPointer') { }
3 143 elsif ($name eq 'variableUser') { }
32 111 elsif ($name eq 'variableSystem') { }
39 72 elsif ($name eq 'jsonOtherNotDouble' or $name eq 'jsonOtherNotGrave') { }
15 57 elsif ($name eq 'exprStringQuoted') { }
49 8 elsif ($name eq 'exprSingleValue') { }
1 7 elsif ($IS_BACKSLASH_ENTITY{$name}) { }
1 6 elsif ($name eq 'jsonUnicode') { }
3 3 elsif ($name eq 'exprArrayLiteral') { }
3 0 elsif ($name eq 'exprObjectLiteral') { }
139 26 22 unless $expr->{'children'}
140 26 22 if $as_location
141 0 22 unless _pointer(1, $topdata, $text)
145 0 3 unless exists $uservals->{$var}
149 0 32 unless exists $sysvals->{$var}
155 0 15 unless $expr->{'children'}
162 2 8 if ($othername eq 'exprKeyRemove') { }
4 4 elsif ($othername eq 'exprKeyAdd') { }
4 0 elsif ($othername eq 'exprApplyJsonPointer') { }
182 0 1 unless defined $really
188 2 1 unless $expr->{'children'}
196 0 3 unless $expr->{'children'}
212 6 5 if (ref $data eq 'HASH') { }
5 0 elsif (ref $data eq 'ARRAY') { }
227 17 55 if $is_set and not length $pointer
228 9 9 $contains ? :
18 37 unless $pointer =~ s[^/][]
230 37 0 length $pointer ? :
234 34 7 if (ref $data eq 'HASH') { }
7 0 elsif (ref $data eq 'ARRAY') { }
235 0 3 unless exists $data->{$p} or $is_set
237 2 32 @parts == 0 && $is_delete ? :
241 0 0 unless ($p =~ /^\d+$/ or @$data > $p) or $is_set
242 0 7 @parts == 0 && $is_delete ? :
248 7 30 if defined $lastptr and $is_set
249 15 22 $contains ? :