Condition Coverage

blib/lib/Pcore/Util/File.pm
Criterion Covered Total %
condition 11 109 10.0


and 3 conditions

line !l l&&!r l&&r condition
67 0 0 0 defined $mode[0] and $mode[0] eq 'r'
68 0 0 0 defined $mode[1] and $mode[1] eq 'w'
69 0 0 0 defined $mode[2] and $mode[2] eq 'x'
72 0 0 0 defined $mode[3] and $mode[3] eq 'r'
73 0 0 0 defined $mode[4] and $mode[4] eq 'w'
74 0 0 0 defined $mode[5] and $mode[5] eq 'x'
77 0 0 0 defined $mode[6] and $mode[6] eq 'r'
78 0 0 0 defined $mode[7] and $mode[7] eq 'w'
79 0 0 0 defined $mode[8] and $mode[8] eq 'x'
141 0 0 5 defined $mode[0] and $mode[0] eq 'r'
142 0 0 5 defined $mode[1] and $mode[1] eq 'w'
143 0 5 0 defined $mode[2] and $mode[2] eq 'x'
146 0 5 0 defined $mode[3] and $mode[3] eq 'r'
147 0 5 0 defined $mode[4] and $mode[4] eq 'w'
148 0 5 0 defined $mode[5] and $mode[5] eq 'x'
151 0 5 0 defined $mode[6] and $mode[6] eq 'r'
152 0 5 0 defined $mode[7] and $mode[7] eq 'w'
153 0 5 0 defined $mode[8] and $mode[8] eq 'x'
288 0 0 0 defined $array_ref->[0] and $array_ref->[0] eq ''
326 0 0 0 defined $array_ref->[-1] and $array_ref->[-1] eq ''
334 0 0 0 defined $array_ref->[0] and $array_ref->[0] eq ''
604 0 0 0 defined $args{'suffix'} and $args{'suffix'} ne ''
0 0 0 defined $args{'suffix'} and $args{'suffix'} ne '' and substr($args{'suffix'}, 0, 1) ne '.'
771 0 0 0 $Pcore::Util::File::MSWIN and $ENV{'PATHEXT'}
0 0 0 $Pcore::Util::File::MSWIN and $ENV{'PATHEXT'} and $env_pathext ne $ENV{'PATHEXT'}

or 2 conditions

line l !l condition
120 0 0 CORE::chmod(calc_chmod($mode), @path) || die("$! during chmod $mode, " . join(', ', @path))
448 2 0 binmode $fh, $binmode or die qq[Can't set binmode file "$path"]

or 3 conditions

line l !l&&r !l&&!r condition
437 10 0 0 $args{'crlf'} //= $Pcore::Util::File::MSWIN ? 1 : 0
529 0 0 0 $args{'mtime'} // time
0 0 0 $args{'atime'} //= $args{'mtime'} // time
530 0 0 0 $args{'mtime'} //= $args{'atime'}
650 0 0 0 $args{'buf_size'} // ()
653 0 0 0 $args{'buf_size'} // ()
657 0 0 0 $args{'buf_size'} // ()
692 0 0 0 $args{'buf_size'} // ()
695 0 0 0 $args{'buf_size'} // ()
699 0 0 0 $args{'buf_size'} // ()