Branch Coverage

blib/lib/File/KDBX/Object.pm
Criterion Covered Total %
branch 98 128 76.5


line true false branch
26 0 10 if @_ == 1 and &blessed($_[0]) and $_[0]->isa($class)
29 73 168 if XXX
32 116 125 if @_ % 2 == 1
35 116 125 if defined $kdbx
39 168 73 unless $data
51 343 0 if (my $method = $self->can($key))
63 698 115 if &blessed($object) and $object->isa($class)
64 43 72 if XXX
87 3 28 if ($args{'relabel'} and my $label = $self->label)
90 3 28 if ($args{'parent'} and my $parent = $self->group)
102 17 47 unless $CLONE{'entries'}
103 18 46 unless $CLONE{'groups'}
104 23 41 unless $CLONE{'history'}
106 64 0 $cloning ? :
117 64 0 if ($cloning)
119 62 2 if $kdbx
122 64 0 if (defined $self->{'uuid'})
123 2 62 if ($CLONE{'reference_password'} || $CLONE{'reference_username'} and $self->can("strings"))
136 0 2 if ($CLONE{'reference_password'})
139 2 0 if ($CLONE{'reference_username'})
144 13 51 if $CLONE{'new_uuid'}
148 64 0 if defined $self->{'icon_id'}
154 0 1066 unless ref $self
155 315 751 if (@_)
156 315 0 if (my $kdbx = shift()) { }
164 376 690 unless $KDBX{$self}
180 1 156 if (my $new_group = shift())
182 0 1 if &Hash::Util::FieldHash::id($old_group) == &Hash::Util::FieldHash::id($new_group)
184 1 0 if $old_group
190 31 126 if (my $group = $PARENT{$self})
192 31 0 if &first(sub { $id == &Hash::Util::FieldHash::id($_); } , @{$group->$method;})
196 125 1 unless my $lineage = $self->kdbx->_trace_lineage($self)
197 0 1 unless my $group = pop @$lineage
204 49 63 if (my $parent = shift()) { }
222 0 5 $base ? :
229 0 8 if $base_addr == &Hash::Util::FieldHash::id($object)
231 5 0 if @path and $base_addr == &Hash::Util::FieldHash::id($path[0]) || $path[0]->is_root
241 7 49 if $parent
256 1 2 if ($kdbx and $kdbx->recycle_bin_enabled and not $self->is_recycled) { }
267 0 4 unless eval { do { $self->kdbx } }
283 4 3 if (@_)
285 3 1 defined $img ? :
286 3 1 if $uuid
296 0 526 if @_ == 1 and XXX
297 507 19 unless @_
299 6 2 @_ % 2 == 1 ? :
11 8 @_ == 2 ? :
302 2 0 unless ($args{'key'} or $args{'value'})
305 2 0 if (@other_keys == 1)
311 0 19 unless my $key = $args{'key'}
313 0 19 if XXX
334 16 19 if (defined wantarray)
346 16 1 unless $args{'entries'}
347 17 0 unless $args{'groups'}
348 17 0 unless $args{'history'}
363 0 14 unless my $orig = pop @{$self->_txns;}
366 12 2 unless $self->_in_txn
374 0 5 unless my $orig = pop @{$self->_txns;}
411 67 1339 if (XXX) { }
349 1649 elsif (XXX or &blessed($orig) and $orig->isa('File::KDBX::Object')) { }
431 19 89 if (XXX) { }
89 0 elsif (XXX or &blessed($orig) and $orig->isa('File::KDBX::Object')) { }
451 0 69 if ($self->_in_txn)
486 0 81 unless my $kdbx = $KDBX{$self}