Branch Coverage

blib/lib/XML/Tape.pm
Criterion Covered Total %
branch 10 24 41.6


line true false branch
72 0 2 unless $filename and $mode =~ /^r|w$/
74 1 1 if ($mode eq 'w') { }
80 0 0 if ($namespace eq 'http://library.lanl.gov/2005-01/STB-RL/tape/') { }
0 0 elsif ($namespace eq 'http://library.lanl.gov/2005-08/aDORe/XMLtape/') { }
101 0 1 if (ref $filename and $filename->isa('Tie::Handle')) { }
106 0 1 unless $fh->open("> $filename")
114 0 1 if @admin > 0
121 0 1 unless $$this{'init'} == 0
130 0 0 unless $$this{'init'}
131 0 0 unless $$this{'recnum'} == 0
150 1 5 unless $$this{'init'}
178 0 1 unless $$this{'init'}