Condition Coverage

blib/lib/LibZip/MyFile.pm
Criterion Covered Total %
condition 14 93 15.0


and 3 conditions

line !l l&&!r l&&r condition
46 0 1 0 $directory ne '' and $file ne ''
1 0 0 $directory ne '' and $file ne '' and substr($directory, -1) ne '/'
1 0 0 $directory ne '' and $file ne '' and substr($directory, -1) ne '/' and substr($file, 0, 1) ne '/'
93 0 0 0 $volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s
102 0 0 0 not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)]
0 0 0 not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]]
135 0 0 0 $volume and $directory
206 0 0 0 $volume =~ m[^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)]s and $directory =~ m[^[^\\/]]s
215 0 0 0 not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)]
0 0 0 not $volume =~ /^[a-zA-Z]:\Z(?!\n)/s and $volume =~ m[[^\\/]\Z(?!\n)] and $file =~ m[[^\\/]]
290 3 0 0 $^O eq 'VMS' and $fullname =~ m[^(/[^/]+/000000(/|$))(.*)]
387 2 0 0 $^O eq 'os2' and $path =~ /^\w:\z/s
416 0 0 2 defined $roots and length $roots
468 1 0 0 $safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-w $root)
488 1 0 0 $safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-l $root || -w $root)
511 1 0 0 $Is_VMS and lstat $root

or 2 conditions

line l !l condition
234 0 0 $1 || ''
0 0 $2 || ''
268 0 0 $dirpath ||= ''
296 0 0 $dirpath ||= ''
413 0 2 $verbose ||= 0
414 0 2 $safe ||= 0

or 3 conditions

line l !l&&r !l&&!r condition
151 0 0 0 $volume or $directory
240 0 0 0 $dev eq '' or $dev =~ /:\Z(?!\n)/
241 0 0 0 length $dev or length $dir
324 0 0 0 $dirname || $ENV{'DEFAULT'}
327 0 0 0 length $basename or $dirname =~ /^[^:]+:\z/
391 1 0 0 -d $parent or $path eq $parent
439 1 0 0 chmod 0777, $Is_VMS ? VMS::Filespec::fileify($root) : $root or carp("Can't make directory $root read+writeable: $!")
445 0 0 1 not defined ${"\cTAINT";} or ${"\cTAINT";}
473 0 0 0 chmod 0777, $root or carp("Can't make directory $root writeable: $!")
488 0 0 0 -l $root || -w $root
495 0 0 0 chmod 0666, $root or carp("Can't make file $root writeable: $!")