Branch Coverage

blib/lib/Data/Visitor/Callback.pm
Criterion Covered Total %
branch 52 70 74.2


line true false branch
56 122 36 unless / :: | ^[A-Z] /x
82 1 126 if ($refaddr and exists $replaced_hash->{$refaddr})
94 256 23 if (defined wantarray) { }
100 5 121 if $refaddr and !ref($_) || $refaddr ne &refaddr($_)
102 256 23 if defined wantarray
105 280 0 @_ == 1 ? :
113 102 0 if (ref $mapped) { }
126 7 2 if (&refaddr($mapped) == &refaddr($data)) { }
137 34 153 ref $data ? :
150 0 5 unless &blessed($data)
151 0 5 unless $data->isa($class)
159 20 4 unless $class_cb
161 24 0 if &blessed($data)
170 4 0 if ((&reftype($new_data) || '') =~ /^(?: SCALAR | REF | LVALUE | VSTRING ) $/x) { }
174 4 0 if (&refaddr($visited) != &refaddr($data)) { }
196 15 0 if (&refaddr($visited) != &refaddr($data)) { }
15 1 if ('ARRAY' eq (&reftype($new_data) || '')) { }
0 34 if (&refaddr($visited) != &refaddr($data)) { }
34 0 if ('CODE' eq (&reftype($new_data) || '')) { }
3 0 if (&refaddr($visited) != &refaddr($data)) { }
3 0 if ('GLOB' eq (&reftype($new_data) || '')) { }
44 0 if (&refaddr($visited) != &refaddr($data)) { }
44 1 if ('HASH' eq (&reftype($new_data) || '')) { }
222 19 87 if ($self->ignore_return_values) { }
224 0 87 if (ref $value and &refaddr($value) != &refaddr($new_value)) { }
226 0 0 if ($key ne $new_key) { }
232 0 87 if ($key ne $new_key) { }
246 104 950 if (my $code = $self->callbacks->{$name}) { }
248 32 72 if (wantarray) { }
250 32 0 $self->ignore_return_values ? :
253 48 24 $self->ignore_return_values ? :
256 353 597 wantarray ? :
265 451 107 unless ($self->ignore_return_values)
267 221 230 if (ref $data)
268 14 207 if (&refaddr($data) != &refaddr($new_data))