| line |
true |
false |
branch |
|
46
|
1 |
7 |
unless (@{$args;}) |
|
53
|
0 |
7 |
if lc $_ eq 'stdin' |
|
54
|
1 |
6 |
unless (Path::Tiny::path($_)->is_file) |
|
59
|
3 |
3 |
unless (exists $opt->{'outfile'}) |
|
63
|
6 |
0 |
if ($opt->{'tname'}) |
|
64
|
1 |
5 |
unless ($opt->{'tname'} =~ /^[\w]+$/) |
|
68
|
5 |
0 |
if ($opt->{'qname'}) |
|
69
|
1 |
4 |
unless ($opt->{'qname'} =~ /^[\w]+$/) |
|
74
|
2 |
2 |
if ($opt->{'size'}) |
|
75
|
1 |
1 |
if (not Path::Tiny::path($opt->{'size'})->is_file) |
|
85
|
3 |
0 |
if (lc $opt->{'outfile'} eq 'stdout') { } |
|
93
|
1 |
2 |
if ($opt->{'size'}) |
|
99
|
0 |
3 |
if (lc $infile eq 'stdin') { } |
|
108
|
3 |
45 |
if $in_fh->eof and $content eq '' |
|
110
|
42 |
3 |
unless ($in_fh->eof) |
|
114
|
21 |
24 |
if (substr($line, 0, 1) eq '#') { } |
|
|
6 |
18 |
elsif ($line eq '' || $line =~ /^\s+$/ and $content ne '') { } |
|
122
|
1 |
5 |
if App::Fasops::Common::seq_length($info_refs->[0]{'seq'}) < $opt->{'length'} |
|
124
|
0 |
5 |
if App::Fasops::Common::seq_length($info_refs->[1]{'seq'}) < $opt->{'length'} |