Condition Coverage

Bio/Root/IO.pm
Criterion Covered Total %
condition 57 150 38.0


and 3 conditions

line !l l&&!r l&&r condition
118 0 0 0 defined $ENV{'TEMPDIR'} and -d $ENV{'TEMPDIR'}
0 0 0 defined $ENV{'TMPDIR'} and -d $ENV{'TMPDIR'}
133 0 0 0 -d $TEMPDIR and -w $TEMPDIR
232 0 0 0 ref $input and ref $input eq 'GLOB' || $input->isa('IO::Handle')
234 21 1 1 $file and $file ne $input
249 9586 1147 2 defined $file and defined $fh
262 9585 2 1143 defined $file and $file ne ''
276 0 551 1284 ref $fh and ref $fh eq 'GLOB'
0 0 551 ref $fh and UNIVERSAL::can($fh, 'can')
0 1 550 ref $fh and UNIVERSAL::can($fh, 'can') and $fh->isa('IO::Handle') || $fh->isa('IO::String')
544 2 0 0 $. > 0 and $line_num > $.
553 0 1 1 $. == 0 and $line_num == 1
605 7 568 378525 not $HAS_EOL || $param{'-raw'} and defined $line
669 551 1066 0 ref $fh eq 'GLOB' and \*STDOUT == $fh || \*STDERR == $fh || \*STDIN == $fh
674 0 1066 550 ref $fh and $fh->isa('IO::String')
739 9370 0 34 exists $self->{'_rootio_tempfiles'} and ref($self->{'_rootio_tempfiles'}) =~ /array/i
9370 0 34 exists $self->{'_rootio_tempfiles'} and ref($self->{'_rootio_tempfiles'}) =~ /array/i and not $self->save_tempfiles
751 9404 0 0 $self->{'_cleanuptempdir'} and exists $self->{'_rootio_tempdirs'}
0 0 0 $self->{'_cleanuptempdir'} and exists $self->{'_rootio_tempdirs'} and ref($self->{'_rootio_tempdirs'}) =~ /array/i
0 0 0 $self->{'_cleanuptempdir'} and exists $self->{'_rootio_tempdirs'} and ref($self->{'_rootio_tempdirs'}) =~ /array/i and not $self->save_tempfiles
786 3 0 0 $^O =~ /mswin/i and not $exe =~ /\.(exe|com|bat|cmd)$/i
787 1 1 1 -f $exe and -x $exe
797 18 0 0 -f $f and -x $f
838 35 0 5 exists $params{'UNLINK'} and defined $params{'UNLINK'}
35 0 5 exists $params{'UNLINK'} and defined $params{'UNLINK'} and not $params{'UNLINK'}
911 0 0 31 $FILETEMPLOADED and 'File::Temp'->can('tempdir')
920 0 0 0 defined $params{'CLEANUP'} && $params{'CLEANUP'} == 1
1015 0 0 0 defined $roots and length $roots
1049 0 0 0 $safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-w $root)
1069 0 0 0 $safe and $Is_VMS ? !&VMS::Filespec::candelete($root) : !(-l $root || -w $root)
1092 0 0 0 $Is_VMS and lstat $root

or 2 conditions

line l !l condition
205 0 0 $retries ||= 5
265 156 987 $mode ||= '<'
369 0 0 $mode ||= ''
487 27585 0 $self->_fh || \*STDOUT
860 0 0 $ENV{'USER'} || 'unknown'
923 0 0 $ENV{'USER'} || 'unknown'
1013 0 0 $verbose ||= 0
1014 0 0 $safe ||= 0
1138 0 34 $self->{'save_tempfiles'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
232 0 0 0 ref $input eq 'GLOB' || $input->isa('IO::Handle')
255 2 1 44 defined $file or defined $fh
276 1 550 0 $fh->isa('IO::Handle') || $fh->isa('IO::String')
1284 550 1 ref $fh and ref $fh eq 'GLOB' or ref $fh and UNIVERSAL::can($fh, 'can') and $fh->isa('IO::Handle') || $fh->isa('IO::String')
351 0 8 0 $arg{'-force'} or not exists $self->{'_mode'}
605 0 7 379093 $HAS_EOL || $param{'-raw'}
669 1 0 1065 \*STDOUT == $fh || \*STDERR == $fh || \*STDIN == $fh
785 3 0 0 ref $self or $exe
1007 0 0 0 $^O eq 'os2' || $^O eq 'dos' || $^O eq 'MSWin32' || $^O eq 'amigaos' || $^O eq 'cygwin'
1032 0 0 0 chmod 0777, $Is_VMS ? VMS::Filespec::fileify($root) : $root or $self->warn("Could not make directory '${root}' read+writable: $!")
1054 0 0 0 chmod 0777, $root or $self->warn("Could not make directory '${root}' writable: $!")
1069 0 0 0 -l $root || -w $root
1076 0 0 0 chmod 0666, $root or $self->warn("Could not make file '${root}' writable: $!")