File Coverage

blib/lib/LINE/Bot/API/Response/RichMenu.pm

Criterion	Covered	Total	%
statement	14	20	70.0
branch			n/a
condition			n/a
subroutine	6	12	50.0
pod	0	8	0.0
total	20	40	50.0

package LINE::Bot::API::Response::RichMenu;
use strict;
use warnings;
use utf8;
use parent 'LINE::Bot::API::Response::Common';


=head1 NAME

LINE::Bot::API::Response::RichMenu

=head1 DESCRIPTION

This class correspond to the "Rich menu response object" as described in
this page: L

There is a method for each top-level properties, but values become
simple perl variablse.  Num, Str, HashRef, or ArrayRef -- instead of
being objects all the way down.

=cut

sub richMenuId  { $_[0]->{richMenuId} }
sub chatBarText { $_[0]->{chatBarText} }
sub size        { $_[0]->{size} }
sub selected    { $_[0]->{selected} }
sub name        { $_[0]->{nam} }
sub areas       { $_[0]->{areas} }

# Aliases
sub rich_menu_id  { $_[0]->{richMenuId} }
sub chat_bar_text { $_[0]->{chatBarText} }

1;