File Coverage

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

Criterion	Covered	Total	%
statement	49	49	100.0
branch	8	8	100.0
condition	5	6	83.3
subroutine	12	12	100.0
pod	7	7	100.0
total	81	82	98.7

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

use parent 'HTML::Widgets::NavMenu::Iterator::Base';

__PACKAGE__->mk_acc_ref(
    [
        qw(
            _item_found
            _leading_path_coords
            _ret_coords
            _temp_coords
            _tree
        )
    ]
);

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

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

    $self->_tree( $args->{'tree'} );

    $self->_item_found(0);

    return 0;
}

sub get_initial_node
{
    my $self = shift;

    return $self->_tree;
}

sub item_matches
{
    my $self     = shift;
    my $item     = $self->top();
    my $url      = $item->_node()->url();
    my $nav_menu = $self->nav_menu();
    return (   ( $item->_accum_state()->{'host'} eq $nav_menu->current_host() )
            && ( defined($url) && ( $url eq $nav_menu->path_info() ) ) );
}

sub does_item_expand
{
    my $self = shift;
    my $item = $self->top();
    return $item->_node()->capture_expanded();
}

sub node_start
{
    my $self = shift;

    if ( $self->item_matches() )
    {
        my @coords = @{ $self->get_coords() };
        $self->_ret_coords( [@coords] );
        $self->_temp_coords( [ @coords, (-1) ] );
        $self->top()->_node()->mark_as_current();
        $self->_item_found(1);
    }
    elsif ( $self->does_item_expand() )
    {
        my @coords = @{ $self->get_coords() };
        $self->_leading_path_coords( [@coords] );
    }
}

sub node_end
{
    my $self = shift;
    if ( $self->_item_found() )
    {
        # Skip the first node, because the coords refer
        # to the nodes below it.
        my $idx = pop( @{ $self->_temp_coords() } );
        if ( $idx >= 0 )
        {
            my $node = $self->top()->_node();
            $node->update_based_on_sub( $node->get_nth_sub($idx) );
        }
    }
}

sub node_should_recurse
{
    my $self = shift;
    return ( !$self->_item_found() );
}

sub get_final_coords
{
    my $self = shift;

    return $self->_ret_coords();
}

sub _get_leading_path_coords
{
    my $self = shift;

    return ( $self->_ret_coords() || $self->_leading_path_coords() );
}

1;

__END__