| line |
true |
false |
branch |
|
46
|
1 |
3 |
unless (@{$args;}) |
|
53
|
0 |
3 |
if lc $_ eq 'stdin' |
|
54
|
1 |
2 |
unless (Path::Tiny::path($_)->is_file) |
|
59
|
0 |
2 |
if (not exists $opt->{'outfile'}) |
|
70
|
0 |
2 |
if (lc $infile eq 'stdin') { } |
|
79
|
2 |
54 |
if $in_fh->eof and $content eq '' |
|
81
|
54 |
0 |
unless ($in_fh->eof) |
|
84
|
0 |
54 |
if substr($line, 0, 1) eq '#' |
|
86
|
6 |
48 |
if ($line eq '' || $line =~ /^\s+$/ and $content ne '') { } |
|
91
|
3 |
3 |
if ($opt->{'name'}) |
|
92
|
3 |
0 |
if (exists $$info_of{$opt->{'name'}}) { } |
|
101
|
6 |
0 |
if ($opt->{'length'}) |
|
103
|
1 |
5 |
if length $$info_of{$names[0]}{'seq'} < $opt->{'length'} |
|
110
|
5 |
9 |
unless (exists $count_of{$name}) |
|
113
|
7 |
7 |
unless (exists $count_of{$name}{$chr_name}) |
|
119
|
2 |
12 |
if ($opt->{'trim'}) |
|
143
|
2 |
0 |
if (lc $opt->{'outfile'} eq 'stdout') { } |
|
150
|
1 |
1 |
if (defined $opt->{'name'}) { } |