File Coverage

blib/lib/HTML/Widgets/NavMenu/Iterator/Base.pm

Criterion	Covered	Total	%
statement	45	47	95.7
branch	14	14	100.0
condition			n/a
subroutine	9	10	90.0
pod	4	4	100.0
total	72	75	96.0

package HTML::Widgets::NavMenu::Iterator::Base;
$HTML::Widgets::NavMenu::Iterator::Base::VERSION = '1.0901';
use strict;
use warnings;

use parent qw(HTML::Widgets::NavMenu::Tree::Iterator);

__PACKAGE__->mk_acc_ref(
    [
        qw(
            _html
            nav_menu
        )
    ]
);


sub _init
{
    my $self = shift;
    my $args = shift;

    $self->SUPER::_init($args);

    $self->nav_menu( $args->{'nav_menu'} )
        or die "nav_menu not specified!";

    $self->_html( [] );

    return 0;
}

sub _add_tags
{
    my $self = shift;
    push( @{ $self->_html() }, @_ );
}

sub _is_root
{
    my $self = shift;

    return ( $self->stack->len() == 1 );
}


sub get_initial_node
{
    my $self = shift;
    return $self->nav_menu->_get_traversed_tree();
}


sub get_node_subs
{
    my ( $self, $args ) = @_;

    my $node = $args->{'node'};

    return [ @{ $node->subs() } ];
}


# TODO : This method is too long - refactor.
sub get_new_accum_state
{
    my ( $self, $args ) = @_;

    my $parent_item = $args->{'item'};
    my $node        = $args->{'node'};

    my $prev_state;
    if ( defined($parent_item) )
    {
        $prev_state = $parent_item->_accum_state();
    }
    else
    {
        $prev_state = +{};
    }

    my $show_always = 0;
    if ( exists( $prev_state->{'show_always'} ) )
    {
        $show_always = $prev_state->{'show_always'};
    }
    if ( defined( $node->show_always() ) )
    {
        $show_always = $node->show_always();
    }

    my $rec_url_type;
    if ( exists( $prev_state->{'rec_url_type'} ) )
    {
        $rec_url_type = $prev_state->{'rec_url_type'};
    }
    if ( defined( $node->rec_url_type() ) )
    {
        $rec_url_type = $node->rec_url_type();
    }
    return {
        'host' => ( $node->host() ? $node->host() : $prev_state->{'host'} ),
        'show_always'  => $show_always,
        'rec_url_type' => $rec_url_type,
    };
}


sub get_results
{
    my $self = shift;

    return [ @{ $self->_html() } ];
}


1;

__END__