Branch Coverage

blib/lib/JSON/Patch.pm
Criterion Covered Total %
branch 32 40 80.0


line true false branch
77 1 1 @_ == 2 ? :
86 2 1 if (exists ${$hunk;}->{'A'}) { }
0 1 elsif (exists ${$hunk;}->{'N'}) { }
0 1 elsif (exists ${$hunk;}->{'R'}) { }
111 1 11 unless ref $_[1] eq 'ARRAY'
114 1 10 unless ref $hunk eq 'HASH'
115 1 9 unless defined $hunk->{'op'}
116 1 8 unless exists $hunk->{'path'}
118 1 7 unless my $path = eval { do { str2path($hunk->{'path'}) } }
121 2 5 if ($hunk->{'op'} eq 'add' or $hunk->{'op'} eq 'replace') { }
1 4 elsif ($hunk->{'op'} eq 'remove') { }
2 2 elsif ($hunk->{'op'} eq 'move' or $hunk->{'op'} eq 'copy') { }
1 1 elsif ($hunk->{'op'} eq 'test') { }
122 1 1 unless exists $hunk->{'value'}
133 1 0 unless eval { do { &path($_[0], $path, 'delete', 1) } }
137 1 1 unless my $from = eval { do { str2path($hunk->{'from'}) } }
145 1 0 unless @found
150 0 1 unless exists $hunk->{'value'}
151 1 0 unless my(@found) = &path($_[0], $path, 'deref', 1)
154 0 0 if keys %{$diff;}