| line |
true |
false |
branch |
|
26
|
0 |
3 |
unless &GetOptions("url=s", \$url, "dump-swml", \$dump_swml, "list-tools", \$list_tools, "exec=s", \$exec_name, "param=s\@", \@params, "raw", \$raw, "verbose", \$verbose, "help|h", \$help) |
|
37
|
1 |
2 |
if ($help) |
|
41
|
1 |
1 |
unless ($url) |
|
46
|
1 |
0 |
unless ($dump_swml or $list_tools or $exec_name) |
|
68
|
0 |
0 |
if ($dump_swml) { } |
|
|
0 |
0 |
elsif ($list_tools) { } |
|
|
0 |
0 |
elsif ($exec_name) { } |
|
86
|
0 |
0 |
if ($raw) { } |
|
88
|
0 |
0 |
unless $response->{'content'} =~ /\n$/ |
|
91
|
0 |
0 |
if ($@) |
|
101
|
0 |
0 |
if ($@) |
|
109
|
0 |
0 |
if (my $sections = $data->{'sections'}) |
|
112
|
0 |
0 |
unless ref $verbs eq "ARRAY" |
|
114
|
0 |
0 |
if (ref $verb eq "HASH" and exists $verb->{'ai'}) |
|
116
|
0 |
0 |
if (my $swaig = $ai->{'SWAIG'}) |
|
117
|
0 |
0 |
if (my $funcs = $swaig->{'functions'}) |
|
126
|
0 |
0 |
unless (@functions) |
|
131
|
0 |
0 |
if ($raw) { } |
|
143
|
0 |
0 |
if (my $params_schema = $f->{'parameters'}) |
|
144
|
0 |
0 |
if (my $props = $params_schema->{'properties'}) |
|
150
|
0 |
0 |
$required_map{$pname} ? : |
|
166
|
0 |
0 |
if ($p =~ /^([^=]+)=(.*)$/) { } |
|
184
|
0 |
0 |
if ($verbose) |
|
191
|
0 |
0 |
if ($verbose) |
|
196
|
0 |
0 |
if ($raw) { } |
|
198
|
0 |
0 |
unless $response->{'content'} =~ /\n$/ |
|
201
|
0 |
0 |
if ($@) { } |
|
203
|
0 |
0 |
unless $response->{'content'} =~ /\n$/ |
|
216
|
0 |
0 |
if (defined $auth_user and defined $auth_pass) |
|
227
|
0 |
0 |
if ($verbose) |
|
233
|
0 |
0 |
if ($verbose) |
|
237
|
0 |
0 |
unless ($response->{'success'}) |
|
255
|
0 |
0 |
unless ($response->{'success'}) |