Branch Coverage

blib/lib/DataStore/CAS/FS/DirCodec.pm
Criterion Covered Total %
branch 18 36 50.0


line true false branch
17 1 58 ref $_[0] eq 'HASH' ? :
59 0 @_ == 1 ? :
19 0 59 unless defined $p{'file'}
20 59 0 unless defined $p{'format'}
26 0 59 unless my $codec = $_Formats{$p{'format'}}
33 0 21 unless defined $entries and ref $entries eq 'ARRAY'
34 0 21 unless my $codec = $_Formats{$format}
55 0 21 unless defined $dec and $dec ne \&DataStore::CAS::FS::DirCodec::decode
78 59 3 unless (defined $params->{'data'})
80 59 0 unless defined $params->{'handle'}
81 0 59 unless seek $params->{'handle'}, 0, 0
88 0 62 unless substr($buf, 0, length $_MagicNumber) eq $_MagicNumber
92 59 3 unless (defined $params->{'data'})
101 0 62 unless substr($buf, length($_MagicNumber) + 2, 1) eq ' ' and substr($buf, length($_MagicNumber) + 3 + $format_len, 1) eq "\n"
108 148 0 if defined $got and $got == $_[3]
111 0 0 if (defined $got) { }
112 0 0 unless $got > 0
118 0 0 unless $!{'EINTR'} or $!{'EAGAIN'}