CPAN::Groonga

  => 'json', 
                          list     => 'search', 
                          srsearch => $search_string 
                        })
                  ->result
                  ->json;
   

ass for Telegram 'Invoice' type objects


use Mojo::Base 'Telegram::Bot::Object::Base';
use Mojo::JSON ();
use Telegram::Bot::Object::Location;
use Telegram::Bot::Object::User;

has 'id';
has 'from'; 

y(
        {
            inline_query_id => $self->id,
            results         => Mojo::JSON::encode_json($results),
            %$args
        }
    );
}

1;

__END__

=pod

=encoding UTF-8

=hea

ults or if you don't support pagination. Offset length can't exceed 64 bytes.

=item C<button>

A JSON-serialized object describing a button to be shown above inline query results

=back

=back

Will 

        # deal with boolean stuff so we don't pollute our object
          # with JSON
          if (ref($val) eq 'JSON::PP::Boolean') {
            $val = !!$val;
          }
          $obj->$field($

alars";
        }
        else {
          my $val = $hash->{$field};
          if (ref($val) eq 'JSON::PP::Boolean') {
            $val = 0+$val;

          }
          $obj->$field($val);
        }

::Base -base;

use strict;
use warnings;

use Mojo::IOLoop;
use Mojo::UserAgent;
use Mojo::JSON qw/encode_json/;
use Carp qw/croak/;
use Log::Any;
use Data::Dumper;

use Telegram::Bot::Object::Message

ification} if exists $args->{disable_notification};
  $send_args->{reply_parameters}     = encode_json($args->{reply_parameters}->as_hashref)
      if exists $args->{reply_parameters};
  # deprecated 

age_id
  if (exists $args->{reply_to_message_id}) {
      $send_args->{reply_parameters} = encode_json({message_id => $args->{reply_to_message_id}});
  }
  # $send_args->{reply_to_message_id}  = $args