Branch Coverage

blib/lib/File/KDBX/Group.pm
Criterion Covered Total %
branch 118 178 66.2


line true false branch
23 0 236 unless &Scalar::Util::blessed($_[0])
24 89 147 if $#_
0 155 unless &Scalar::Util::blessed($_[0])
25 66 89 if $#_
0 243 unless &Scalar::Util::blessed($_[0])
26 2 241 if $#_
0 106 unless &Scalar::Util::blessed($_[0])
27 18 88 if $#_
0 91 unless &Scalar::Util::blessed($_[0])
28 0 91 if $#_
0 154 unless &Scalar::Util::blessed($_[0])
29 65 89 if $#_
0 87 unless &Scalar::Util::blessed($_[0])
30 0 87 if $#_
0 88 unless &Scalar::Util::blessed($_[0])
31 1 87 if $#_
0 89 unless &Scalar::Util::blessed($_[0])
32 1 88 if $#_
0 83 unless &Scalar::Util::blessed($_[0])
33 0 83 if $#_
34 0 244 unless &Scalar::Util::blessed($_[0])
35 2 242 if $#_
37 0 692 unless &Scalar::Util::blessed($_[0])
38 0 692 if $#_
39 0 89 unless &Scalar::Util::blessed($_[0])
40 6 83 if $#_
0 83 unless &Scalar::Util::blessed($_[0])
41 0 83 if $#_
0 89 unless &Scalar::Util::blessed($_[0])
42 6 83 if $#_
0 83 unless &Scalar::Util::blessed($_[0])
43 0 83 if $#_
0 87 unless &Scalar::Util::blessed($_[0])
44 0 87 if $#_
0 83 unless &Scalar::Util::blessed($_[0])
45 0 83 if $#_
0 83 unless &Scalar::Util::blessed($_[0])
46 0 83 if $#_
58 84 192 if (@_ or not defined $self->{'uuid'})
59 1 83 @_ % 2 == 1 ? :
62 1 83 if defined $old_uuid
73 12 831 if (@$entries and not &blessed($entries->[0]))
93 288 53 unless (@entries)
95 1 316 if $searching and not $group->effective_enable_searching
96 0 316 if $auto_type and not $group->effective_enable_auto_type
98 1 315 if $auto_type
99 225 91 if $history
100 101 215 if @entries
110 5 25 @_ % 2 == 1 ? :
117 30 0 if $kdbx
126 4 0 XXX ? :
131 0 4 if $uuid ne $object->uuid
133 3 1 if $args{'signal'} // 1
144 7 1219 if (@$groups and not &blessed($groups->[0]))
156 454 0 $args{'inclusive'} // 1 ? :
159 4 450 if ($algo eq 2) { }
3 447 elsif ($algo eq 1) { }
162 4 17 unless my $next = shift @groups
163 9 8 unless ($visited{&Hash::Util::FieldHash::id($next)}++)
175 3 12 unless my $next = shift @groups
181 403 642 unless my $next = shift @groups
192 1 18 @_ % 2 == 1 ? :
199 19 0 if $kdbx
208 3 0 XXX ? :
213 0 3 if $uuid ne $object->uuid
215 3 0 if $args{'signal'} // 1
235 251 37 unless (@entries)
237 0 154 if $searching and not $group->effective_enable_searching
238 0 154 if $auto_type and not $group->effective_enable_auto_type
240 0 154 if $auto_type
241 2 152 if $history
253 3 1 if ($obj->isa('File::KDBX::Entry')) { }
1 0 elsif ($obj->isa('File::KDBX::Group')) { }
266 3 4 if $blessed and $object->isa("File::KDBX::Group")
267 4 0 if $blessed and $object->isa("File::KDBX::Entry")
277 0 0 if defined $sequence
279 0 0 unless my $parent = $self->group
287 0 1 if defined $enabled
289 1 0 unless my $parent = $self->group
297 1 1 if defined $enabled
299 1 0 unless my $parent = $self->group
314 0 8 unless my $kdbx = eval { do { $self->kdbx } }
321 0 5 unless my $kdbx = eval { do { $self->kdbx } }
329 0 0 unless my $kdbx = eval { do { $self->kdbx } }
337 0 0 unless my $kdbx = eval { do { $self->kdbx } }
345 0 0 unless my $kdbx = eval { do { $self->kdbx } }
353 1 2 if $self->is_root
354 0 2 unless my $lineage = $self->lineage
367 0 0 $_[0]->is_root ? :