| line |
true |
false |
branch |
|
51
|
3 |
36 |
if (exists $param_hr->{$property}) |
|
56
|
0 |
3 |
if $expected_type ne $type |
|
70
|
9 |
0 |
unless ($self{$default}) |
|
76
|
0 |
3 |
if (exists $self{'cache_file'}) |
|
80
|
0 |
0 |
if (stat $self{'cache_file'}) |
|
84
|
0 |
0 |
if (ref $self{'cache_hr'} ne 'HASH') |
|
94
|
0 |
3 |
unless $self{'key'} |
|
97
|
0 |
3 |
unless $self{'data_format'} =~ /\A (?: perl|json ) \z/imsx |
|
102
|
0 |
3 |
if (keys %{$self{'headers'};}) |
|
114
|
0 |
1 |
unless exists $arg_hr->{'q'} |
|
117
|
0 |
1 |
unless $arg_hr->{'q'} |
|
137
|
0 |
1 |
if @unsupported |
|
140
|
0 |
1 |
unless (exists $arg_hr->{'model'}) |
|
142
|
0 |
0 |
if ($self->{'model'}) |
|
148
|
0 |
1 |
unless (exists $arg_hr->{'prettyprint'}) |
|
150
|
0 |
0 |
if ($self->{'prettyprint'}) |
|
156
|
0 |
1 |
unless (exists $arg_hr->{'format'}) |
|
158
|
0 |
0 |
if ($self->{'format'}) { } |
|
|
0 |
0 |
elsif ($arg_hr->{'q'} =~ / < [^>]+ > /msx) { } |
|
174
|
0 |
1 |
if (exists $self->{'cache_hr'}) |
|
178
|
0 |
0 |
if exists $arg_hr->{$_} |
|
182
|
0 |
0 |
if exists $self->{'cache_hr'}{$cache_key} |
|
187
|
0 |
1 |
if ($cache_key) |
|
201
|
0 |
1 |
unless exists $arg_hr->{'target'} |
|
205
|
1 |
0 |
if ($arg_hr->{'target'}) |
|
209
|
0 |
1 |
if @unsupported |
|
222
|
0 |
1 |
unless exists $arg_hr->{'q'} |
|
226
|
1 |
0 |
if ($arg_hr->{'q'}) |
|
230
|
0 |
1 |
if @unsupported |
|
245
|
1 |
2 |
$operation eq 'translate' ? : |
|
254
|
0 |
3 |
if (exists $arg_hr->{'source'} and not $arg_hr->{'source'}) |
|
260
|
2 |
1 |
exists $form{'q'} ? : |
|
265
|
0 |
3 |
if ($force_post or $byte_size > $get_size_limit) { } |
|
292
|
0 |
3 |
if ($response->code == 400) { } |
|
|
0 |
3 |
elsif (not $response->is_success) { } |
|
315
|
0 |
3 |
if 'json' eq lc $self->{'data_format'} |
|
323
|
0 |
3 |
if ($WWW::Google::Translate::EVAL_ERROR) |