Branch Coverage

blib/lib/SVN/Dumpfile/Node/Headers.pm
Criterion Covered Total %
branch 24 46 52.1


line true false branch
36 3 40 if (@_ == 1 and ref $_[0] eq 'HASH') { }
1 39 elsif (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} % 2 == 0) { }
0 39 elsif (@_ % 2 == 0) { }
39 0 elsif (@_ == 1 and not defined $_[0]) { }
68 3 26 unless defined $line
75 0 26 unless ($line =~ /^(Node-path|Revision-number): /)
82 128 0 if ($line =~ /^([^:]+):\s*(.*)$/) { }
103 358 214 unless exists $$self{$key}
121 0 0 unless (eval { do { $fh->isa('IO::Handle') } } or ref $fh eq 'GLOB' or ref \$fh eq 'GLOB')
140 4 5 if (exists $$header{'Revision-number'}) { }
0 5 elsif (not exists $$header{'Node-path'}) { }
0 5 elsif (not exists $$header{'Node-action'}) { }
141 0 4 unless (exists $$header{'Prop-content-length'} and exists $$header{'Content-length'})
162 0 5 if ($action eq 'delete') { }
5 0 elsif ($action eq 'add' or $action eq 'replace') { }
0 0 elsif ($action eq 'change') { }
163 0 0 exists $$header{'Node-kind'} ? :
166 0 0 if (keys %$header != $num_headers_expected)
177 0 5 if (not exists $$header{'Node-kind'}) { }
2 3 elsif ($$header{'Node-kind'} eq 'file') { }
3 0 elsif ($$header{'Node-kind'} eq 'dir') { }
182 0 0 unless (exists $$header{'Text-content-length'} and exists $$header{'Text-content-md5'} and not exists $$header{'Node-copyfrom-rev'} ^ exists $$header{'Node-copyfrom-path'} or exists $$header{'Node-copyfrom-rev'} and exists $$header{'Node-copyfrom-path'} and not exists $$header{'Text-content-length'} ^ exists $$header{'Text-content-md5'})
210 0 3 if (exists $$header{'Text-content-length'} or exists $$header{'Text-content-md5'})