File Coverage

blib/lib/Telegram/Bot/Object/ChatMemberUpdated.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition n/a
subroutine 3 7 42.8
pod 1 4 25.0
total 13 27 48.1


line stmt bran cond sub pod time code
1             package Telegram::Bot::Object::ChatMemberUpdated;
2             $Telegram::Bot::Object::ChatMemberUpdated::VERSION = '0.029';
3             # ABSTRACT: The base class for the Telegram type "ChatMemberUpdated".
4              
5              
6 2     2   15 use Mojo::Base 'Telegram::Bot::Object::Base';
  2         5  
  2         16  
7              
8 2     2   1738 use Telegram::Bot::Object::ChatMember;
  2         8  
  2         78  
9              
10 2     2   86 use Data::Dumper;
  2         4  
  2         703  
11              
12             # basic message stuff
13              
14             has 'chat'; # Chat
15             has 'from'; # User
16             has 'date'; # Integer
17             has 'new_chat_member'; # ChatMember
18             has 'old_chat_member'; # ChatMember
19             has 'invite_link'; # ChatInviteLink
20             has 'via_join_request'; # boolean
21             has 'via_chat_folder_invite_link'; # boolean
22              
23             sub fields {
24             return {
25 0     0 0   'scalar' => [qw/date via_join_request via_chat_folder_invite_link/],
26             'Telegram::Bot::Object::User' => [qw/from/],
27             'Telegram::Bot::Object::Chat' => [qw/chat/],
28             'Telegram::Bot::Object::ChatMember' => [qw/new_chat_member old_chat_member /],
29             };
30             }
31              
32       0 1   sub arrays {
33             }
34              
35              
36             sub approve {
37 0     0 0   my $self = shift;
38 0           my $text = shift;
39 0           return $self->_brain->approveChatMemberUpdated({chat_id => $self->chat->id, user_id => $self->from->id});
40             }
41              
42             sub decline {
43 0     0 0   my $self = shift;
44 0           my $text = shift;
45 0           return $self->_brain->declineChatMemberUpdated({chat_id => $self->chat->id, user_id => $self->from->id});
46             }
47              
48             1;
49              
50             __END__