Condition Coverage

blib/lib/File/Spec/VMS.pm
Criterion Covered Total %
condition 16 74 21.6


and 3 conditions

line !l l&&!r l&&r condition
159 0 1 2 defined $dir && length $dir
194 1 0 0 $spath =~ m<^(?]+\)\Z(?!\n)>s and basename($file) eq $file
198 0 0 0 defined $rslt && length $rslt
204 0 0 2 defined $file && length $file
335 46 0 0 $file =~ /^[\w\$\-]+\Z(?!\n)/s and $ENV{$file}
428 0 0 0 length $dev and $dir eq '[]' || $dir eq '<>'
440 16 0 0 grep m[/], @_ and not grep(/(?
444 0 0 16 defined $base and length $base
474 0 0 0 @pathchunks and @basechunks
0 0 0 @pathchunks and @basechunks and lc $pathchunks[0] eq lc $basechunks[0]
510 32 6 0 defined $base and $base =~ m[/]
535 0 0 0 $base_directories =~ /[^.\]>]\Z(?!\n)/ and $path_directories =~ /^[^.\[<]/s

or 2 conditions

line l !l condition
54 0 125 $ENV{'DECC$FILENAME_UNIX_REPORT'} || ''
367 0 0 $1 || ''
371 0 0 $1 || ''
0 0 $2 || ''

or 3 conditions

line l !l&&r !l&&!r condition
255 0 0 0 $dev1 != $dev2 or $ino1 != $ino2
336 39 2 5 $file =~ m[^/]s || $file =~ /[<\[][^.\-\]>]/ || $file =~ /^[A-Za-z0-9_\$\-\~]+(?
384 0 1 14 not defined $dirspec or '' eq $dirspec
423 0 0 0 $dev eq '' or $dev =~ /:\Z(?!\n)/
424 0 0 0 length $dev or length $dir
428 0 0 0 $dir eq '[]' || $dir eq '<>'
484 0 0 0 @basechunks > 0 or $basechunks != $pathchunks
506 0 0 0 -d $path || $path =~ m[/\z]
515 0 0 5 not defined $base or $base eq ''
532 0 0 0 $path_directories eq '[]' or $path_directories eq '<>'