| line |
true |
false |
branch |
|
37
|
1 |
0 |
if @present_types == @{$reqd_types;}
|
|
65
|
0 |
0 |
unless ref $@
|
|
|
0 |
0 |
if ($@->isa('Error::Unhandled')) { }
|
|
|
0 |
0 |
if ($@)
|
|
82
|
0 |
0 |
unless $p->getoptions('operation=s', \$oper, 'user=s', \$user, 'password=s', \$pawd, 'fields=s', \$fields, 'config=s', \$log_cfg, 'help|?', \$help)
|
|
93
|
0 |
0 |
if $help
|
|
94
|
0 |
0 |
unless $oper or $user or $pawd or $fields or $log_cfg
|
|
96
|
0 |
0 |
unless -f $log_cfg or -s $log_cfg
|
|
103
|
0 |
0 |
if $oper_exists
|
|
104
|
0 |
0 |
unless $oper_exists
|
|
112
|
0 |
0 |
if -f $fields and -s $fields
|
|
131
|
1 |
0 |
if $ret
|
|
145
|
0 |
1 |
unless $fields
|
|
151
|
0 |
1 |
if (@illegal_tokens)
|
|
170
|
0 |
1 |
unless $resp->is_success
|
|
173
|
0 |
0 |
unless ref $@
|
|
|
0 |
0 |
if ($@->isa('Error::Unhandled')) { }
|
|
|
0 |
1 |
if ($@)
|
|
193
|
0 |
0 |
unless require XML::Simple
|
|
201
|
0 |
0 |
unless $key =~ /\:body$/i
|
|
212
|
1 |
0 |
unless ref $@
|
|
|
1 |
0 |
if ($@->isa('Error::Unhandled')) { }
|
|
|
1 |
0 |
if ($@)
|
|
216
|
1 |
0 |
unless (%tag_vals)
|
|
220
|
2 |
0 |
if $resp =~ m[<$tag>(.+)</$tag>]six
|