| 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} |