| line |
true |
false |
branch |
|
131
|
0 |
0 |
unless ref $opts eq ref {} and ref $list eq ref [] |
|
137
|
0 |
0 |
if ($o =~ /^\-/) { } |
|
139
|
0 |
0 |
unless exists $opts->{$opt} |
|
142
|
0 |
0 |
if ($opts->{$opt} ne 'http:shenwei.me') { } |
|
144
|
0 |
0 |
if ref $opts->{$opt} ne ref [] |
|
152
|
0 |
0 |
if $opts->{$_} eq 'http:shenwei.me' |
|
172
|
0 |
0 |
if (@files == 0) |
|
212
|
0 |
1 |
unless defined $depth |
|
213
|
0 |
1 |
unless ($depth =~ /^\d+$/ and $depth > 0) |
|
223
|
1 |
55 |
if /^\.+$/ |
|
224
|
0 |
55 |
if $_ eq $dir |
|
227
|
41 |
14 |
if $File::Find::name =~ tr[/][] - $depth0 > $depth |
|
229
|
1 |
13 |
if (&$filter($_)) |
|
248
|
0 |
0 |
unless (ref $str eq ref \$t and ref $ids eq ref []) |
|
270
|
0 |
0 |
unless (ref $array eq ref [] and ref $ids eq ref []) |
|
276
|
0 |
0 |
if exists $omitted{$i} |
|
309
|
0 |
4 |
if defined $parameters->{$1} |
|
342
|
0 |
1 |
unless open my $fh, $file |
|
345
|
2 |
2 |
if $_ eq '' or /^#/ |
|
349
|
0 |
2 |
unless /([\w\d\_\-\.]+)\s*=\s*(.+)/ |
|
382
|
0 |
1 |
unless open my $fh, '<', $file |
|
387
|
2 |
2 |
if $_ eq '' or /^#/ |
|
410
|
0 |
1 |
unless ($column =~ /^(\d+)$/ and $column > 0) |
|
414
|
1 |
0 |
unless defined $delimiter |
|
416
|
0 |
1 |
unless open my $fh, '<', $file |
|
422
|
0 |
4 |
if /^\s*#/ |
|
425
|
1 |
3 |
unless $n > 0 |
|
427
|
0 |
3 |
if ($column > $n) |
|
451
|
0 |
1 |
unless open my $fh, '<:encoding(utf8)', $file |
|
456
|
5 |
0 |
if / *(.+)/ |
|
479
|
0 |
1 |
unless open my $fh2, '>:encoding(utf8)', $file |
|
500
|
0 |
0 |
if ($? == -1) { } |
|
|
0 |
0 |
elsif ($? & 127) { } |
|
506
|
0 |
0 |
$? & 128 ? : |
|
538
|
0 |
0 |
unless $n =~ /^\d+$/ and $n > 0 |
|
564
|
0 |
0 |
unless $seconds =~ /^\d+$/ |
|
570
|
0 |
0 |
if ($days >= 1) |
|
577
|
0 |
0 |
if ($hours >= 1) { } |
|
|
0 |
0 |
elsif ($has_bigger_unit) { } |
|
585
|
0 |
0 |
if ($minutes >= 1) { } |
|
|
0 |
0 |
elsif ($has_bigger_unit) { } |
|
608
|
0 |
0 |
unless $n =~ /^\d+$/ and $n != 0 |
|
623
|
0 |
0 |
if @$list == 0 |
|
647
|
0 |
0 |
if ($file =~ /(.+)\..+?$/) { } |
|
664
|
0 |
0 |
unless (-e $_) |
|
683
|
0 |
0 |
unless -e $in |
|
686
|
0 |
0 |
unless -d $in |
|
691
|
0 |
0 |
if $in eq $out |
|
707
|
0 |
0 |
if (-e $dir) |
|
708
|
0 |
0 |
unless remove_tree($dir) |
|
710
|
0 |
0 |
unless mkdir $dir |
|
734
|
0 |
0 |
unless -e "$dir/${id}_2.fq.gz" |
|
746
|
0 |
0 |
unless -e "$dir/${id}_2.fa.gz" |