seasharp
/
anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(tools): return complete subroutine results in anvil-access-module

Browse Source
main
Tsu-ba-me 2 years ago
parent 40dd856c50
commit 2e5edfdcf0
1 changed files with 10 additions and 10 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 20
      tools/anvil-access-module

20
tools/anvil-access-module
Unescape View File

@ -199,17 +199,17 @@ if ($sql_query)
}
elsif ($anvil->${sub_module_name}->can($sub_name))
{
my $decoded_sub_params;
my $is_decode_sub_params_success = eval { $decoded_sub_params = decode_json($sub_params); };
my $decoded_sub_params;
my $is_decode_sub_params_success = eval { $decoded_sub_params = decode_json($sub_params); };
if (not $is_decode_sub_params_success)
{
print STDERR "error: failed to parse subroutine parameters\n";
$anvil->nice_exit({ exit_code => 1 });
}
if (not $is_decode_sub_params_success)
{
print STDERR "error: failed to parse subroutine parameters\n";
$anvil->nice_exit({ exit_code => 1 });
}
my $results = $anvil->${sub_module_name}->${sub_name}($decoded_sub_params);
print JSON->new->utf8->encode({ sub_results => $results })."\n";
my (@results) = $anvil->${sub_module_name}->${sub_name}($decoded_sub_params);
print JSON->new->utf8->encode({ sub_results => scalar(@results) > 1 ? \@results : $results[0] })."\n";
}
elsif ($data_hash)
{
@ -230,7 +230,7 @@ elsif ($data_hash)
if (not $is_decode_data_hash_success)
{
print STDERR "error: failed to parse data structure\n";
$anvil->nice_exit({ exit_code => 1 });
$anvil->nice_exit({ exit_code => 1 });
}
my $get_anvil_data_params = { data => {} };

Write Preview
Loading…
Cancel
Save