Branch Coverage

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


line true false branch
45 8 18 if ($name eq 'transformImpliedDest') { }
16 2 elsif ($name eq 'transformCopy') { }
2 0 elsif ($name eq 'transformMove') { }
53 0 2 unless _pointer(1, $data, $srcptr)
62 11 13 if ($mapping) { }
64 0 11 if $opFrom eq '<%' and ref $srcdata ne 'HASH'
66 0 11 if $opFrom eq '<@' and ref $srcdata ne 'ARRAY'
81 23 3 if ($name eq 'jsonPointer') { }
3 0 elsif ($name eq 'variableUser') { }
96 2 9 if ($name eq 'exprObjectMapping') { }
6 3 elsif ($name eq 'exprArrayMapping') { }
3 0 elsif ($name eq 'exprSingleValue') { }
127 21 49 if $pairs
128 18 52 if $pair
135 46 143 if ($name eq 'jsonPointer') { }
3 140 elsif ($name eq 'variableUser') { }
31 109 elsif ($name eq 'variableSystem') { }
38 71 elsif ($name eq 'jsonOtherNotDouble' or $name eq 'jsonOtherNotGrave') { }
15 56 elsif ($name eq 'exprStringQuoted') { }
48 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') { }
137 25 21 unless $expr->{'children'}
138 25 21 if $as_location
139 0 21 unless _pointer(1, $topdata, $text)
143 0 3 unless exists $uservals->{$var}
147 0 31 unless exists $sysvals->{$var}
153 0 15 unless $expr->{'children'}
160 2 7 if ($othername eq 'exprKeyRemove') { }
4 3 elsif ($othername eq 'exprKeyAdd') { }
3 0 elsif ($othername eq 'exprApplyJsonPointer') { }
180 0 1 unless defined $really
186 2 1 unless $expr->{'children'}
194 0 3 unless $expr->{'children'}
210 6 5 if (ref $data eq 'HASH') { }
5 0 elsif (ref $data eq 'ARRAY') { }
225 16 53 if $is_set and not length $pointer
226 9 9 $contains ? :
18 35 unless $pointer =~ s[^/][]
228 35 0 length $pointer ? :
232 32 7 if (ref $data eq 'HASH') { }
7 0 elsif (ref $data eq 'ARRAY') { }
233 0 3 unless exists $data->{$p} or $is_set
235 2 30 @parts == 0 && $is_delete ? :
239 0 0 unless ($p =~ /^\d+$/ or @$data > $p) or $is_set
240 0 7 @parts == 0 && $is_delete ? :
246 7 28 if defined $lastptr and $is_set
247 14 21 $contains ? :