Branch Coverage

blib/lib/VMS/FileUtils/Root.pm
Criterion Covered Total %
branch 0 90 0.0


line true false branch
86 0 0 if $d[$#d] =~ /[\.\;]/
96 0 0 if ($^O =~ /vms/i)
99 0 0 if $?
107 0 0 unless defined $$self{'rootlogical'}
109 0 0 if $?
127 0 0 if (lc substr($d, 0, length $$self{'base'}) ne lc $$self{'base'})
135 0 0 if (defined $f and not $f =~ /\./)
140 0 0 if $#p < 0
145 0 0 if $WantVMS
157 0 0 if $WantVMS
171 0 0 unless defined $def[$j]
172 0 0 unless defined $in[$j]
178 0 0 if $$self{'O_DIRONLY'}
199 0 0 if ($d)
201 0 0 if ($r[3] and $r[4] and $r[4] =~ /\.\]\Z/)
213 0 0 unless $_ eq '000000'
215 0 0 if $#p < 0
231 0 0 unless $rel =~ /\A\[(\.|\-|\])/
239 0 0 if (/\A\-+\Z/) { }
0 0 elsif ($_ ne '') { }
241 0 0 if (length $_ > $#b + 1)
275 0 0 unless defined $f
279 0 0 if ($f =~ /\A($VMS::FileUtils::Root::Pnode)?($VMS::FileUtils::Root::Pdev)?($VMS::FileUtils::Root::Pdir)?($VMS::FileUtils::Root::Pname)?($VMS::FileUtils::Root::Ptype)?($VMS::FileUtils::Root::Pvers)?\Z/i) { }
287 0 0 $bdir ? :
288 0 0 if defined $rdir and $rdir ne ''
291 0 0 $15 ? :
296 0 0 if ($node and $$self{'O_LOCALONLY'})
299 0 0 if ($$self{'O_LOCAL'})
314 0 0 $$self{'O_LOWER'} ? :
318 0 0 if ($node)
320 0 0 if ($user)
322 0 0 if ($pwd)
329 0 0 if ($dev)
333 0 0 if ($dir)
338 0 0 if ($name or $type or $vers)
353 0 0 if (defined $d and $d eq '') { }
362 0 0 unless defined $_
363 0 0 if $_ eq '.'
365 0 0 if ($_ eq '..') { }
366 0 0 if ($#p2 == 0)
367 0 0 if ($p2[0] =~ /\A\-*\Z/)
381 0 0 if (defined $f and not $f =~ /[\.\;]/)
395 0 0 unless defined $dir
396 0 0 unless ($dir =~ /[\[\<\;\:]/)
403 0 0 if (defined $def and not $def =~ /[\[\<\;\:]/)