| line |
true |
false |
branch |
|
61
|
0 |
1 |
unless ($arg{'fasta'}) |
|
62
|
0 |
1 |
unless ($arg{'fasta'} =~ />/) |
|
67
|
1 |
3 |
if ($line =~ /^>\S+/) { } |
|
|
1 |
2 |
elsif ($line =~ /^;\s*(.+)/) { } |
|
71
|
1 |
0 |
if (defined $descriptions) |
|
82
|
2 |
0 |
unless ($line eq '') |
|
110
|
0 |
1 |
unless ($arg{'sequence'}) |
|
111
|
0 |
1 |
unless ($arg{'id'}) |
|
112
|
1 |
0 |
defined $arg{'cols'} ? : |
|
129
|
1 |
0 |
if (defined @{$arg{'comments'};}) |
|
132
|
1 |
0 |
if (defined @{$arg{'descriptors'};}) |
|
153
|
1 |
0 |
if (defined $$class{'_id'}) { } |
|
182
|
0 |
1 |
unless ($arg{'save'}) |
|
185
|
0 |
1 |
unless my $save = 'IO::File'->new(">>$arg{'save'}") |
|
187
|
1 |
0 |
if (defined $$class{'_id'}) { } |
|
219
|
1 |
0 |
if (defined $$class{'_id'}) { } |
|
248
|
2 |
0 |
if (defined $$class{'_id'}) { } |
|
267
|
2 |
0 |
if (defined $$class{'_sequence'}) { } |