| line |
l |
!l&&r |
!l&&!r |
condition |
|
39
|
15 |
0 |
15 |
shift() // $self->format |
|
100
|
0 |
13 |
0 |
$args{'kdbx'} //= $self->kdbx |
|
102
|
9 |
4 |
0 |
$ref //= do {
my $buf = "";
\$buf
} |
|
127
|
0 |
2 |
0 |
$args{'kdbx'} //= $self->kdbx |
|
133
|
0 |
0 |
1 |
not $fh or my $err = $@ |
|
153
|
1 |
0 |
0 |
$file_mode // do {
my $m = umask;
defined $m ? 438 & ~$m : undef
} |
|
|
0 |
1 |
0 |
$mode //= $file_mode // do {
my $m = umask;
defined $m ? 438 & ~$m : undef
} |
|
154
|
0 |
0 |
1 |
$uid //= $file_uid // -1 |
|
155
|
0 |
0 |
1 |
$gid //= $file_gid // -1 |
|
174
|
0 |
0 |
0 |
$args{'kdbx'} //= $self->kdbx |
|
185
|
456 |
0 |
0 |
$self->{'kdbx'} //= "File::KDBX"->new |
|
189
|
0 |
15 |
0 |
$_[0]{'inner_format'} //= $default |
|
190
|
0 |
7 |
0 |
$_[0]{'allow_upgrade'} //= $default |
|
191
|
1 |
14 |
0 |
$_[0]{'randomize_seeds'} //= $default |
|
212
|
15 |
0 |
0 |
$key //= $kdbx->key ? $kdbx->key->reload : undef |
|
250
|
0 |
0 |
15 |
$kdbx->version < 131072 or 262145 < $kdbx->version |