Branch Coverage

blib/lib/WebService/Google/Language.pm
Criterion Covered Total %
branch 52 62 83.8


line true false branch
31 11 2 if @_ % 2
37 4 32 if (defined(my $value = delete $conf{$_}))
43 4 20 if (defined(my $value = delete $conf{$_}))
47 10 2 unless ($self->json)
50 10 2 unless ($self->ua)
51 9 1 unless defined $conf{'agent'}
54 9 1 unless exists $conf{'env_proxy'}
70 4 1 if @_ % 2
79 2 1 if @_ % 2
101 15 16 if (@_)
103 2 13 unless $json and $json->isa('JSON')
113 17 7 if (@_)
115 4 13 unless (defined $referer and $referer =~ /\S/)
119 1 3 $caller && $caller eq ref($self) . '::new' ? :
131 15 22 if (@_)
133 2 13 unless $ua and $ua->isa('LWP::UserAgent')
149 4 4 if (defined $text and $text =~ /\S/) { }
151 1 3 if (length $text > 5000)
162 3 0 if defined $$self{'key'}
163 2 1 if (defined $langpair) { }
174 2 1 if ($length > 2073) { }
175 1 1 if (defined $langpair) { }
190 1 1 if ($response->is_success) { }
192 1 0 if ($@) { }
205 0 4 if ($] < 5.007) { }
211 0 0 if (length $_[0] == do { use bytes; length $_[0] })
229 0 1 $_[0]{'responseStatus'} && $_[0]{'responseStatus'} != 200 ? :
241 0 1 $_[0]{'responseData'} ? :
245 0 1 $_[0]{'responseData'} ? :
252 0 1 $_[0]{'responseData'} ? :
256 0 1 $_[0]{'responseData'} ? :