File Coverage

blib/lib/Telegram/Bot/Object/CallbackQuery.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition			n/a
subroutine	4	9	44.4
pod	1	5	20.0
total	17	35	48.5

package Telegram::Bot::Object::CallbackQuery;
$Telegram::Bot::Object::CallbackQuery::VERSION = '0.029';
# ABSTRACT: The base class for the Telegram type "CallbackQuery".


use Mojo::Base 'Telegram::Bot::Object::Base';

use Telegram::Bot::Object::User;
use Telegram::Bot::Object::Message;

use Data::Dumper;

# basic message stuff
has 'id'; # String
has 'from';  # User
has 'message'; # Message

has 'inline_message_id'; # String
has 'chat_instance'; # String
has 'data'; # String

has 'game_short_name'; # String

sub fields {
  return {
          'scalar'                                      => [qw/id inline_message_id chat_instance data game_short_name/],
          'Telegram::Bot::Object::User'                 => [qw/from/],

          'Telegram::Bot::Object::Message'              => [qw/message/],
  };
}

sub arrays {
}


sub answer {
  my $self = shift;
  my $text = shift;
  return $self->_brain->answerCallbackQuery({callback_query_id => $self->id, text => $text, cache_time => 3600});
}

sub reply {
    my $self = shift;
    my $text = shift;
    return $self->message->reply($text);
}

sub chat {
  my $self = shift;
  return $self->message->chat;
}

1;

__END__