Branch Coverage

blib/lib/File/KDBX/Dumper/V3.pm
Criterion Covered Total %
branch 30 48 62.5


line true false branch
35 0 8 if $got_iv_size != 16
39 0 8 if (nonempty(my $comment = $headers->{'comment'}))
53 0 72 unless defined $headers->{$type}
68 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) { }
76 0 8 unless $size == 16
83 0 8 unless $size == 32
117 0 80 unless $fh->print($buf, $val)
137 0 40 unless defined $kdbx->headers->{$field}
157 0 8 unless $fh->print($kdbx->headers->{'stream_start_bytes'})
165 8 0 if ($compress == 1) { }
0 0 elsif ($compress != 0) { }
167 0 8 unless $fh = "IO::Compress::Gzip"->new($fh, "-Level", IO::Compress::Gzip::Z_BEST_COMPRESSION(), "-TextFlag", 1)