File Coverage

blib/lib/HTML/Widgets/NavMenu/Tree/Iterator/Stack.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	7	7	100.0
total	52	52	100.0

package HTML::Widgets::NavMenu::Tree::Iterator::Stack;
$HTML::Widgets::NavMenu::Tree::Iterator::Stack::VERSION = '1.1000';
use strict;
use warnings;

use parent qw(HTML::Widgets::NavMenu::Object);

__PACKAGE__->mk_acc_ref( [qw(_items)] );

sub _init
{
    my $self = shift;

    $self->_items( [] );

    return 0;
}


sub push
{
    my $self = shift;
    my $item = shift;

    push @{ $self->_items() }, $item;

    return 0;
}


sub len
{
    my $self = shift;

    return scalar( @{ $self->_items() } );
}


sub top
{
    my $self = shift;
    return $self->_items->[-1];
}


sub item
{
    my $self  = shift;
    my $index = shift;
    return $self->_items->[$index];
}


sub pop
{
    my $self = shift;
    return pop( @{ $self->_items() } );
}


sub is_empty
{
    my $self = shift;
    return ( $self->len() == 0 );
}


sub reset
{
    my $self = shift;

    $#{ $self->_items() } = -1;

    return 0;
}


1;

__END__