Branch Coverage

Bio/Root/Utilities.pm
Criterion Covered Total %
branch 81 238 34.0


line true false branch
192 3 3 if (defined $date and $date =~ /[\D-]+/) { }
194 2 1 if ($date =~ m[/]) { }
1 0 elsif ($date =~ /(\d{4})-(\d{1,2})-(\d{1,2})/) { }
0 0 elsif ($date =~ /(\d{4})-(\w{3,})-(\d{1,2})/) { }
204 1 2 if (length $year == 4) { }
211 1 1 if ($year > 50) { }
219 1 2 $date ? :
221 0 3 if $option =~ /list/i
225 3 3 if defined $wday
230 2 4 if ($option =~ /yyyy-mm-dd/i) { }
0 4 elsif ($option =~ /yyyy-dd-mm/i) { }
1 3 elsif ($option =~ /yyyy-mmm-dd/i) { }
0 3 elsif ($option =~ /full|unix/i) { }
1 2 elsif ($option =~ /mdy/i) { }
0 2 elsif ($option =~ /ymd/i) { }
0 2 elsif ($option =~ /dmy/i) { }
1 1 elsif ($option =~ /md/i) { }
1 0 elsif ($option =~ /d-m-y/i) { }
0 0 elsif ($option =~ /d m y/i) { }
0 0 elsif ($option =~ /year/i) { }
0 0 elsif ($option =~ /dmy/i) { }
0 0 elsif ($option and not $option =~ /hms/i) { }
258 1 5 if ($option =~ /hms/i and not $converting)
259 1 0 if $date
287 12 66 if $str =~ /$Bio::Root::Utilities::MONTHS[$month]/i
307 0 12 if $num < 1 or $num > 12
362 0 2 if ($fileName =~ /(\.gz|\.Z|\.bz2|\.zip)$/)
367 0 2 if (defined $exe)
378 0 2 unless (-x $exe)
384 2 0 if (defined $outfile or $tmp or not -O $fileName) { }
385 1 1 if (defined $outfile) { }
396 0 2 if ($exe =~ / /)
400 2 0 if ($exe =~ /gzip|bzip2|compress/) { }
0 0 elsif ($exe eq 'zip') { }
405 1 1 unless $tmp
411 0 0 if ($exe =~ /gzip/) { }
0 0 elsif ($exe =~ /bzip2/) { }
0 0 elsif ($exe =~ /zip/) { }
0 0 elsif ($exe =~ /compress/) { }
420 0 0 if ($exe =~ /gzip|bzip2|compress/) { }
0 0 elsif ($exe eq 'zip') { }
427 0 2 if (system(@cmd) != 0)
486 0 2 unless ($fileName =~ /(\.gz|\.Z|\.bz2|\.zip)$/)
491 0 2 if (defined $exe)
501 0 2 unless (-x $exe)
510 1 1 if (defined $outfile or $tmp or not -O $fileName) { }
511 1 0 if (defined $outfile) { }
522 0 1 if ($exe =~ / /)
526 1 0 if ($exe =~ /gunzip|bunzip2|uncompress/) { }
0 0 elsif ($exe =~ /gzip/) { }
0 0 elsif ($exe eq 'unzip') { }
533 0 1 unless $tmp
537 1 0 if ($exe =~ /gunzip|bunzip2|uncompress/) { }
0 0 elsif ($exe =~ /gzip/) { }
0 0 elsif ($exe eq 'zip') { }
546 0 2 if (system(@cmd) != 0)
575 0 1 unless $file and -e $file
616 1 3 unless (defined $value and $value ne '')
620 1 2 if ($relax) { }
652 1 2 unless @data
665 1 1 $N <= 1 ? :
702 0 0 unless ($dir =~ m[/$])
704 0 0 unless open my $PIPE, "ls -1 $dir |"
715 0 0 if (-T $dir . $line)
718 0 0 if (-B $dir . $line and not -d $dir . $line)
721 0 0 if (-d $dir . $line)
727 0 0 if ($print)
756 0 0 if ($get =~ /date/i) { }
0 0 elsif ($get eq 'all') { }
783 0 0 if (not -e $fileName) { }
0 0 elsif (not -O $fileName) { }
788 0 0 unless my $ulval = unlink($fileName) > 0
828 1 0 unless (ref $client)
830 0 1 if ($client->can('file'))
837 0 1 if ($handle_ref = ref $file) { }
0 1 elsif ($file) { }
838 0 0 if ($handle_ref eq 'FileHandle') { }
0 0 elsif ($handle_ref eq 'GLOB') { }
848 0 0 if $self->verbose > 0
854 0 0 if (-B $file)
862 0 0 unless open $FH, $file
864 0 0 if $self->verbose > 0
869 0 1 if $self->verbose > 0
896 0 1 if defined $Bio::Root::Utilities::NEWLINE
903 1 0 unless (ref $client)
905 1 0 if ($client->{'_input_type'} =~ /STDIN|Glob|compressed/) { }
910 0 1 if (defined $ENV{'MACPERL'}) { }
921 0 0 unless $client->{'_input_type'} eq 'STDIN' or $client->{'_input_type'} eq 'FileHandle' or $client->{'_input_type'} eq 'Glob'
956 0 0 unless ref $FH eq 'FileHandle'
966 0 0 if ($@)
974 0 0 if $alarm_available
976 0 0 if $alarm_available
978 0 0 if ($@ =~ /Timed out!/) { }
0 0 elsif (not $result) { }
0 0 elsif ($@ =~ /\S/) { }
992 0 0 unless seek $FH, 0, 0
998 0 0 if ($chars[$i] eq "\n") { }
0 0 elsif ($chars[$i] eq "\r" and $chars[$i + 1] eq "\n") { }
0 0 elsif ($chars[$i] eq "\r") { }
999 0 0 unless ($chars[$i - 1] eq "\r")
1020 0 0 if (not $octal) { }
1057 0 1 unless -f $file
1084 0 0 if (defined $email) { }
1105 0 0 if defined $email
1144 0 0 unless $recipient =~ /\S+\@\S+/
1153 0 0 if ($exe = $self->find_exe('mail')) { }
0 0 elsif ($exe = $self->find_exe('sendmail')) { }
1154 0 0 if (defined $cc)
1158 0 0 unless open MAIL, "| $exe -s '${subj}' $ccinfo $recipient"
1163 0 0 if $?
1166 0 0 unless open SENDMAIL, "| $exe -oi -t"
1176 0 0 if $?
1211 0 6 if ($^O =~ /mswin/i) { }
1214 0 0 unless $name =~ /\.exe$/i
1220 6 0 unless (-x $exe)
1226 5 49 if -x "$d/$name"
1228 5 1 if (scalar @exes)
1230 0 5 if (defined $exes[1])
1329 0 0 if ($] < $reqVersion)