CPAN::Groonga

ETHODS

=cut

use Modern::Perl;
use Mojo::Base -base;
use Mojo::UserAgent;
use Mojo::JSON qw(decode_json encode_json);
use Data::Dumper;

has url                => 'https://api.steemit.com/';
has ua  

 my( $self, $api, $method, @params ) = @_;
   my $response = $self->ua->post( $self->url, json => {
      jsonrpc => '2.0',
      method  => 'call',
      params  => [$api,$method,[@params]],
      id

requesting steemd ". $response->to_string unless $response->is_success;

   my $result   = decode_json $response->body;

   return $result->{result} if $result->{result};
   if( my $error = $result->{

: string,
#    author: string,
#    permlink: string,
#    title: string,
#    body: string,
#    json_metadata: string
#}
#);

sub serialize_comment {
   my( $self, $operation_name, $operation_parame

", $operation_id;

   for my $field ( qw(parent_author parent_permlink author permlink title body json_metadata) ){
      confess "$field missing in parameters".Dumper($operation_parameters)   unless 

e
   account_witness_proxy
   pow
   custom
   report_over_production
   delete_comment
   custom_json
   comment_options
   set_withdraw_vesting_route
   limit_order_create2
   challenge_authority