| line |
true |
false |
branch |
|
66
|
0 |
2 |
if (defined $$args{'PRIMER_LEFT_INPUT'} and defined $$args{'PRIMER_RIGHT_INPUT'}) { } |
|
70
|
0 |
0 |
if $$args{'PRIMER_NUM_RETURN'} > 1 |
|
74
|
0 |
0 |
unless defined $$args{'SEQUENCE'} |
|
78
|
0 |
0 |
unless defined $$args{'PRIMER_SEQUENCE_ID'} and defined $$args{'SEQUENCE'} and defined $$args{'PRIMER_PRODUCT_SIZE_RANGE'} |
|
102
|
1 |
2 |
unless $args |
|
110
|
5 |
8 |
if exists $aliases{$k} |
|
111
|
0 |
8 |
unless my $alias = $lookup{$k} |
|
119
|
2 |
0 |
unless $self->check_params($args) |
|
129
|
0 |
0 |
unless @data and @data > 1 |
|
140
|
0 |
0 |
if $key and $value |
|
143
|
0 |
0 |
if /R_PAIR_PENALT\S+=(\S+)/ or /R_PAIR_QUAL\S+=(\S+)/ |
|
145
|
0 |
0 |
if /R_LEFT\S+SEQUENC\S+=(\S+)/ |
|
147
|
0 |
0 |
if /R_RIGHT\S+SEQUENC\S+=(\S+)/ |
|
149
|
0 |
0 |
if /R_LEFT_?\d*=(\d+),\d+/ |
|
151
|
0 |
0 |
if /R_RIGHT_?\d*=(\d+),\d+/ |
|
153
|
0 |
0 |
if /R_LEFT\S*_PENALT\S+=(\S+)/ or /R_LEFT\S*_QUAL\S+=(\S+)/ |
|
155
|
0 |
0 |
if /R_RIGHT\S*_PENALT\S+=(\S+)/ or /R_RIGHT\S*_QUAL\S+=(\S+)/ |
|
157
|
0 |
0 |
if /R_LEFT\S+GC_PERCEN\S+=(\S+)/ |
|
159
|
0 |
0 |
if /R_RIGHT\S+GC_PERCEN\S+=(\S+)/ |
|
161
|
0 |
0 |
if /R_LEFT\S+SELF_AN\S+=(\S+)/ |
|
163
|
0 |
0 |
if /R_RIGHT\S+SELF_AN\S+=(\S+)/ |
|
165
|
0 |
0 |
if /R_LEFT\S+SELF_EN\S+=(\S+)/ |
|
167
|
0 |
0 |
if /R_RIGHT\S+SELF_EN\S+=(\S+)/ |
|
169
|
0 |
0 |
if /R_LEFT\S+END_STABILIT\S+=(\S+)/ |
|
171
|
0 |
0 |
if /R_RIGHT\S+END_STABILIT\S+=(\S+)/ |
|
173
|
0 |
0 |
if /R_PAIR\S+COMPL_EN\S+=(\S+)/ |
|
175
|
0 |
0 |
if /R_PAIR\S+COMPL_AN\S+=(\S+)/ |
|
177
|
0 |
0 |
if /PRIMER_INTERNAL_OLIGO_SEQUENC\S+=(\S+)/ |
|
183
|
0 |
0 |
if /PRIMER_INTERNAL_OLIGO\S+TM=(\d+)/ |
|
186
|
0 |
0 |
if /^PRIMER_LEFT.*_TM=(\S+)/ |
|
189
|
0 |
0 |
if /^PRIMER_RIGHT.*_TM=(\S+)/ |
|
195
|
0 |
0 |
if /^PRIMER_PRODUCT_SIZ\S+=(\S+)/ and not /RANGE/ |
|
201
|
0 |
0 |
if (/PRIMER_ERROR/) |
|
238
|
0 |
0 |
if ($method eq 'remote') { } |
|
239
|
0 |
0 |
unless my $cgi = 'Bio::PrimerDesigner::Remote'->new |
|
247
|
0 |
0 |
unless my $binary_name = $self->binary_name |
|
249
|
0 |
0 |
unless -x $binary_path |
|
265
|
0 |
0 |
if ($self->check_results($method, @data)) { } |
|
288
|
0 |
0 |
$method eq 'remote' ? : |
|
291
|
0 |
0 |
if ($results =~ /SEQUENCE=/m) { } |
|
491
|
0 |
2 |
unless my $result = $self->design('remote', $REMOTE_URL, {'num', 1, 'seq', $dna, 'sizerange', '100-200', 'target', '150,10', 'excluded', '1,30 400,' . ($length - 401), 'id', 'test_seq'}) |