| line |
true |
false |
branch |
|
34
|
0 |
8 |
if (nonempty(my $comment = $headers->{'comment'})) |
|
48
|
0 |
72 |
unless defined $headers->{$type} |
|
63
|
8 |
72 |
if ($type == 0) { } |
|
|
0 |
72 |
elsif ($type == 1) { } |
|
|
8 |
64 |
elsif ($type == 2) { } |
|
|
8 |
56 |
elsif ($type == 3) { } |
|
|
8 |
48 |
elsif ($type == 4) { } |
|
|
8 |
40 |
elsif ($type == 5) { } |
|
|
8 |
32 |
elsif ($type == 6) { } |
|
|
8 |
24 |
elsif ($type == 7) { } |
|
|
8 |
16 |
elsif ($type == 8) { } |
|
|
8 |
8 |
elsif ($type == 9) { } |
|
|
8 |
0 |
elsif ($type == 10) { } |
|
|
0 |
0 |
elsif ($type == 11 or $type == 12) { } |
|
|
0 |
0 |
elsif ($type == 1) { } |
|
71
|
0 |
8 |
unless $size == 16 |
|
78
|
0 |
8 |
unless $size == 32 |
|
112
|
0 |
80 |
unless $fh->print($buf, $val) |
|
132
|
0 |
40 |
unless defined $kdbx->headers->{$field} |
|
152
|
0 |
8 |
unless $fh->print($kdbx->headers->{'stream_start_bytes'}) |
|
160
|
8 |
0 |
if ($compress == 1) { } |
|
|
0 |
0 |
elsif ($compress != 0) { } |
|
162
|
0 |
8 |
unless $fh = "IO::Compress::Gzip"->new($fh, "-Level", IO::Compress::Gzip::Z_BEST_COMPRESSION(), "-TextFlag", 1) |