| line |
l |
!l&&r |
!l&&!r |
condition |
|
33
|
0 |
0 |
1 |
$$self{'api_user'} or $$self{'user'} |
|
34
|
0 |
0 |
1 |
$$self{'api_pass'} or $$self{'pass'} |
|
35
|
0 |
0 |
1 |
$$self{'api_host'} or $$self{'host'} |
|
36
|
0 |
0 |
0 |
$$self{'api_port'} or $$self{'port'} |
|
37
|
0 |
0 |
0 |
$$self{'api_path'} or $$self{'path'} |
|
38
|
0 |
0 |
0 |
$$self{'use_ssl'} or $$self{'ssl'} |
|
62
|
0 |
1 |
0 |
(shift())->{'serialize_type'} ||= eval {
do {
require JSON
}
} ? 'json' : (eval {
do {
require YAML::Syck
}
} ? 'yaml' : (eval {
do {
require YAML
}
} ? 'yaml' : (eval {
do {
require XML::Simple
}
} ? 'xml' : (eval {
do {
require Data::URIEncode
}
} ? 'uri' : die(q[Can't find a module that can encode and decode (need one of JSON, YAML::Syck, YAML, Data::URIEncode, XML::Simple)]))))) |
|
163
|
0 |
0 |
0 |
$$args{'serialize'} || $$args{'serialize_type'} || $self->serialize_type |
|
176
|
0 |
0 |
0 |
$Net::YAR::JSON_ENCODE ||= 'JSON'->VERSION > 1.98 ? 'encode' : 'objToJSon' |
|
236
|
0 |
0 |
0 |
not $$hash{'data'} && $$hash{'data'}{$_} or ref $$hash{'data'}{$_} ne 'HASH' |
|
243
|
0 |
0 |
0 |
$Net::YAR::JSON_DECODE ||= 'JSON'->VERSION > 1.98 ? 'decode' : 'jsonToObj' |
|
268
|
0 |
0 |
0 |
$$data{'response'} || confess('Invalid response') |
|
281
|
0 |
0 |
0 |
not $$obj_args{'type'} or $$obj_args{'type'} eq 'error' |
|
|
0 |
0 |
0 |
not $$obj_args{'type'} or $$obj_args{'type'} eq 'error' or $$obj_args{'type'} eq 'parse_error' |
|
316
|
0 |
0 |
0 |
$_[0]{'lwp_args'} ||= &$default() |
|
351
|
0 |
0 |
0 |
not UNIVERSAL::can($err, 'type') or $err->type ne 'invalid_method' |
|
499
|
0 |
0 |
0 |
$$args{'unique_hash_file'} || "/tmp/iter_[$$args{'unique_key'}]_$$.db" |
|
569
|
0 |
0 |
0 |
$$self{'yar'} || croak('Net::YAR::_ChainProxy object modified since new - missing yar') |
|
570
|
0 |
0 |
0 |
$$self{'type'} || croak('Net::YAR::_ChainProxy object modified since new - missing type') |
|
594
|
0 |
0 |
0 |
shift() || confess('Missing class') |
|
595
|
0 |
0 |
0 |
shift() || confess('Missing args') |