| line |
true |
false |
branch |
|
108
|
0 |
18 |
unless $self->$param($$config{$param}) |
|
111
|
5 |
1 |
if ($self->method eq 'local') |
|
112
|
0 |
5 |
unless $self->binary_path($$config{'binary_path'}) |
|
115
|
5 |
1 |
$self->method eq 'local' ? : |
|
133
|
2 |
7 |
if (my $path = shift()) |
|
134
|
0 |
2 |
if (not $self->os_is_unix) { } |
|
138
|
1 |
1 |
if (-e $path) { } |
|
151
|
5 |
3 |
unless (defined $$self{'binary_path'}) |
|
152
|
5 |
0 |
$self->os_is_unix ? : |
|
172
|
0 |
0 |
unless my(%params) = @_ |
|
175
|
0 |
0 |
$method eq 'local' ? : |
|
176
|
0 |
0 |
$designer =~ /primer3/ ? : |
|
178
|
0 |
0 |
unless my $result = $designer->$function($method, $loc, \%params) |
|
211
|
0 |
0 |
unless my $designer = $self->program |
|
227
|
0 |
0 |
unless my $designer = $self->program |
|
244
|
3 |
20 |
if (my $arg = lc shift()) |
|
245
|
1 |
2 |
unless $arg eq 'local' or $arg eq 'remote' |
|
248
|
0 |
2 |
if (not $self->os_is_unix and $arg eq 'local') |
|
255
|
5 |
17 |
unless (defined $$self{'method'}) |
|
256
|
5 |
0 |
$self->os_is_unix ? : |
|
277
|
6 |
8 |
unless (defined $$self{'os_is_unix'}) |
|
279
|
6 |
0 |
!($^O =~ /^MSWin/i) ? : |
|
315
|
5 |
9 |
if ($program) |
|
316
|
1 |
4 |
unless $DESIGNER{$program} |
|
321
|
9 |
4 |
if ($reset or not defined $$self{'program'}) |
|
324
|
0 |
9 |
unless $$self{'program'} = $class->new |
|
359
|
0 |
8 |
if (defined $url and $url eq $EMPTY_STR) { } |
|
|
2 |
6 |
elsif ($url) { } |
|
363
|
1 |
1 |
unless $url =~ m[https?://] |
|
369
|
8 |
0 |
unless ($@) |
|
389
|
0 |
0 |
$method eq 'local' ? : |