| 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 |
37 |
if -x "$d/$name" |
|
1228
|
5 |
1 |
if (scalar @exes) |
|
1230
|
0 |
5 |
if (defined $exes[1]) |
|
1329
|
0 |
0 |
if ($] < $reqVersion) |