Branch Coverage

blib/lib/Tie/History.pm
Criterion Covered Total %
branch 66 140 47.1


line true false branch
16 0 2 if ($args)
17 0 0 unless (ref $args eq 'HASH')
37 0 2 if ($args)
38 0 0 unless (ref $args eq 'HASH')
58 0 2 if ($args)
59 0 0 unless (ref $args eq 'HASH')
77 6 12 if ($$self{'TYPE'} eq 'SCALAR') { }
6 6 elsif ($$self{'TYPE'} eq 'ARRAY') { }
6 0 elsif ($$self{'TYPE'} eq 'HASH') { }
78 3 3 $$self{'CURRENT'} eq ($$self{'PREVIOUS'}[-1] || '') ? :
82 1 5 if scalar @{$$self{'CURRENT'};} == 0
86 1 5 if scalar keys %{$$self{'CURRENT'};} == 0
88 9 9 if ($$self{'RECENT'} == 1) { }
89 0 9 if warnings::enabled()
93 3 6 if ($$self{'TYPE'} eq 'HASH') { }
108 0 0 if ($value == 0) { }
0 0 elsif ($value == 1) { }
125 6 6 if $$self{'TYPE'} eq 'HASH'
126 6 6 if $$self{'TYPE'} eq 'HASH'
127 4 8 $p->Dump eq $c->Dump ? :
132 3 3 unless $self->_checkentries
133 3 0 $$self{'RECENT'} ? :
144 0 3 unless $self->_checkentries
151 0 6 unless $self->_checkentries($index)
157 1 0 shift() || $$self{'RECENT'} ? :
158 0 1 unless $self->_checkentries($index)
166 3 13 if ($$self{'ENTRYS'} == 0)
167 0 3 if warnings::enabled()
170 4 9 if ($index ne 'NULL')
171 0 4 if ($index >= $$self{'ENTRYS'})
172 0 0 if warnings::enabled()
181 0 4 unless ref $self
183 3 1 if $$self{'TYPE'} eq 'SCALAR'
184 0 1 if $$self{'TYPE'} eq 'ARRAY'
185 1 0 if $$self{'TYPE'} eq 'HASH'
190 0 30 unless ref $self
191 4 26 if ($$self{'TYPE'} eq 'SCALAR') { }
22 4 elsif ($$self{'TYPE'} eq 'ARRAY') { }
4 0 elsif ($$self{'TYPE'} eq 'HASH') { }
205 0 0 if ($$self{'AUTOCOMMIT'})
212 0 0 unless ref $self
214 0 0 if $$self{'TYPE'} eq 'SCALAR'
215 0 0 if $$self{'TYPE'} eq 'ARRAY'
216 0 0 if $$self{'TYPE'} eq 'HASH'
221 0 6 unless ref $self
226 0 0 unless ref $self
228 0 0 if ($$self{'TYPE'} eq 'ARRAY') { }
0 0 elsif ($$self{'TYPE'} eq 'HASH') { }
229 0 0 unless defined $$self{'CURRENT'}[$key]
239 0 5 unless ref $self
240 5 0 if $$self{'TYPE'} eq 'ARRAY'
241 0 0 if $$self{'TYPE'} eq 'HASH'
246 0 0 unless ref $self
248 0 0 if $$self{'TYPE'} eq 'ARRAY'
249 0 0 if $$self{'TYPE'} eq 'HASH'
254 0 0 unless ref $self
261 0 0 unless ref $self
268 0 17 unless ref $self
274 0 5 unless ref $self
276 5 0 if ($count > $self->FETCHSIZE) { }
0 0 elsif ($count < $self->FETCHSIZE) { }
290 0 5 unless ref $self
297 0 1 unless ref $self
305 0 1 unless ref $self
311 0 1 unless ref $self
317 0 1 unless ref $self
325 0 2 unless ref $self
327 2 0 @_ ? :
328 1 1 if $offset < 0
329 1 1 @_ ? :