| line |
true |
false |
branch |
|
129
|
0 |
0 |
unless ref $opts eq ref {} and ref $list eq ref [] |
|
135
|
0 |
0 |
if ($o =~ /^\-/) { } |
|
137
|
0 |
0 |
unless exists $$opts{$opt} |
|
140
|
0 |
0 |
if ($$opts{$opt} ne 'http:shenwei.me') { } |
|
141
|
0 |
0 |
if ref $$opts{$opt} ne ref [] |
|
150
|
0 |
0 |
if $$opts{$_} eq 'http:shenwei.me' |
|
170
|
0 |
0 |
if (@files == 0) |
|
210
|
0 |
1 |
unless defined $depth |
|
211
|
0 |
1 |
unless ($depth =~ /^\d+$/ and $depth > 0) |
|
221
|
1 |
56 |
if /^\.+$/ |
|
222
|
0 |
56 |
if $_ eq $dir |
|
225
|
42 |
14 |
if $File::Find::name =~ tr[/][] - $depth0 > $depth |
|
227
|
1 |
13 |
if (&$filter($_)) |
|
246
|
0 |
0 |
unless (ref $str eq ref \$t and ref $ids eq ref []) |
|
268
|
0 |
0 |
unless (ref $array eq ref [] and ref $ids eq ref []) |
|
274
|
0 |
0 |
if exists $omitted{$i} |
|
307
|
0 |
4 |
if defined $$parameters{$1} |
|
340
|
0 |
1 |
unless open my $fh, $file |
|
343
|
2 |
2 |
if $_ eq '' or /^#/ |
|
347
|
0 |
2 |
unless /([\w\d\_\-\.]+)\s*=\s*(.+)/ |
|
380
|
0 |
1 |
unless open my $fh, '<', $file |
|
385
|
2 |
2 |
if $_ eq '' or /^#/ |
|
408
|
0 |
1 |
unless ($column =~ /^(\d+)$/ and $column > 0) |
|
412
|
1 |
0 |
unless defined $delimiter |
|
414
|
0 |
1 |
unless open my $fh, '<', $file |
|
420
|
0 |
4 |
if /^\s*#/ |
|
423
|
1 |
3 |
unless $n > 0 |
|
425
|
0 |
3 |
if ($column > $n) |
|
449
|
0 |
1 |
unless open my $fh, '<:encoding(utf8)', $file |
|
454
|
5 |
0 |
if / *(.+)/ |
|
477
|
0 |
1 |
unless open my $fh2, '>:encoding(utf8)', $file |
|
498
|
0 |
0 |
if ($? == -1) { } |
|
|
0 |
0 |
elsif ($? & 127) { } |
|
504
|
0 |
0 |
$? & 128 ? : |
|
536
|
0 |
0 |
unless $n =~ /^\d+$/ and $n > 0 |
|
562
|
0 |
0 |
unless $seconds =~ /^\d+$/ |
|
568
|
0 |
0 |
if ($days >= 1) |
|
575
|
0 |
0 |
if ($hours >= 1) { } |
|
|
0 |
0 |
elsif ($has_bigger_unit) { } |
|
583
|
0 |
0 |
if ($minutes >= 1) { } |
|
|
0 |
0 |
elsif ($has_bigger_unit) { } |
|
606
|
0 |
0 |
unless $n =~ /^\d+$/ and $n != 0 |
|
621
|
0 |
0 |
if @$list == 0 |
|
645
|
0 |
0 |
if ($file =~ /(.+)\..+?$/) { } |
|
662
|
0 |
0 |
unless (-e $_) |
|
681
|
0 |
0 |
unless -e $in |
|
684
|
0 |
0 |
unless -d $in |
|
689
|
0 |
0 |
if $in eq $out |
|
705
|
0 |
0 |
if (-e $dir) |
|
706
|
0 |
0 |
unless remove_tree($dir) |
|
708
|
0 |
0 |
unless mkdir $dir |
|
732
|
0 |
0 |
unless -e "$dir/${id}_2.fq.gz" |