File Coverage

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

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

#  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, 2012 -- [e-mail]

package Tickit::Widget::Menu::Item;

use strict;
use warnings;
use base qw( Tickit::Widget::Menu::itembase );

our $VERSION = '0.09';

use Tickit::Utils qw( textwidth );

=head1 NAME

C - an item to display in a C

=head1 DESCRIPTION

Objects in this class are displayed in menus. Each item has a name and a
callback to invoke when the menu option is clicked on.

=cut

=head1 CONSTRUCTOR

=cut

=head2 $item = Tickit::Widget::Menu::Item->new( %args )

Constructs a new C object.

Takes the following named arguments:

=over 8

=item name => STRING

Gives the name of the menu item.

=item on_activate => CODE

Callback to invoke when the menu item is clicked on.

=back

=cut

sub new
{
   my $class = shift;
   my %args = @_;

   my $self = bless {
      on_activate => $args{on_activate},
   }, $class;
   $self->_init_itembase( %args );

   return $self;
}

sub activate
{
   my $self = shift;

   $self->{on_activate}->( $self ) if $self->{on_activate};
}

=head1 AUTHOR

Paul Evans

=cut

0x55AA;