| line |
true |
false |
branch |
|
90
|
0 |
1 |
unless defined $options{'src'} and defined $options{'dest'} |
|
93
|
0 |
1 |
unless is_language_tag($$self{'src'} = delete $options{'src'}) |
|
96
|
0 |
1 |
unless is_language_tag($$self{'dest'} = delete $options{'dest'}) |
|
105
|
0 |
1 |
if (defined $custom_port) |
|
130
|
0 |
1 |
if ($@) |
|
138
|
0 |
1 |
unless UNIVERSAL::isa($self, 'Lingua::Translate::SysTran') |
|
162
|
0 |
1 |
unless $socket |
|
165
|
0 |
1 |
unless $socket->write($request, length $request) |
|
173
|
0 |
3 |
unless my($command, $value) = /^([\w\-]+)=(.*)$/ |
|
176
|
1 |
2 |
if ($command eq 'ERR') { } |
|
|
1 |
1 |
elsif ($command eq 'TIME') { } |
|
|
0 |
1 |
elsif ($command eq 'EMSG') { } |
|
|
1 |
0 |
elsif ($command eq 'OUTPUT-CONTENT') { } |
|
185
|
0 |
1 |
unless $bytes_read == $value |
|
196
|
0 |
1 |
if $error |
|
229
|
0 |
0 |
unless UNIVERSAL::isa($self, 'Lingua::Translate::SysTran') |
|
254
|
1 |
1 |
if (UNIVERSAL::isa($_[0], 'Lingua::Translate::SysTran')) { } |
|
262
|
0 |
1 |
if ($option eq 'pairs') { } |
|
|
1 |
0 |
elsif ($option =~ /^(host|port)$/) { } |
|
325
|
0 |
1 |
unless my($src, $tgt) = $pair =~ /^(..)_(..)/ |
|
346
|
1 |
1 |
if $default |