File Coverage

blib/lib/Tickit/Widget/Menu/itembase.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	0	2	0.0
total	8	21	38.1

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2013 -- [e-mail]

package Tickit::Widget::Menu::itembase;

use strict;
use warnings;

our $VERSION = '0.09';

sub _init_itembase
{
   my $self = shift;
   my %args = @_;

   $self->{name} = $args{name};
}

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

sub render_label
{
   my $self = shift;
   my ( $rb, $cols, $menu ) = @_;

   $rb->text( $self->name );
}

0x55AA;