package LINE::Bot::API::Event::Base;
use strict;
use warnings;
use Carp 'croak';
sub new {
    my($class, %args) = @_;
    bless { %args }, $class;
}
sub type      { $_[0]->{type} }
sub timestamp { $_[0]->{timestamp} }
# Unfollow and Leave events don't have this
sub reply_token { $_[0]->{replyToken} }
# type
sub is_message_event          { 0 }
sub is_follow_event           { 0 }
sub is_unfollow_event         { 0 }
sub is_join_event             { 0 }
sub is_leave_event            { 0 }
sub is_member_join_event      { 0 }
sub is_member_leave_event     { 0 }
sub is_postback_event         { 0 }
sub is_beacon_detection_event { 0 }
# source field
sub is_user_event  { $_[0]->{source}{type} eq 'user' }
sub is_group_event { $_[0]->{source}{type} eq 'group' }
sub is_room_event  { $_[0]->{source}{type} eq 'room' }
sub user_id { $_[0]->{source}{userId} }
sub group_id {
    my $self = shift;
    croak 'This event source is not a group type.' unless $self->is_group_event;
    $self->{source}{groupId};
}
sub room_id {
    my $self = shift;
    croak 'This event source is not a room type.' unless $self->is_room_event;
    $self->{source}{roomId};
}
1;