CPAN::Groonga

package Perlgram::Bot::keyboard;

use JSON::MaybeXS;
use Data::Dumper;

sub _remove_undef_keys_recursive {
    my ($data) = @_;

    if (ref $data eq 'HASH') {
        my %filtered_data;

 

//= undef;
    $input_field_placeholder //= undef;
    $selective //= undef;
    return encode_json(_remove_undef_keys_recursive({
        keyboard                => $keyboard,
        resize_key

use HTTP::Request;
use JSON;
use strict;
use warnings;
use Data::Dumper;

sub new {
    my ($class, $token) = @_;
    my $ua = LWP::UserAgent->new;
    my $json = JSON->new->allow_nonref;
  

  my $self = { token => $token , requ => $ua , json => $json };
    bless $self, $class;
    return $self;
}


sub _remove_undef_keys_recursive {
    my ($data) = @_;

    if (ref $data eq 'H

 . $method, $filtered_data);
    my $content = $response->decoded_content;

    return $self->{json}->decode($content);
}





sub setWebhook {
    my ($self, $url, $ip_address, $max_connec