File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	36	36	100.0

package HTML::Widgets::NavMenu::Iterator::SiteMap;
$HTML::Widgets::NavMenu::Iterator::SiteMap::VERSION = '1.0902';
use strict;
use warnings;

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


sub _start_root
{
    my $self = shift;

    $self->_add_tags("");
}

sub _start_sep
{
}

sub _start_regular
{
    my $self = shift;

    my $top_item = $self->top;
    my $node     = $self->top->_node();

    $self->_add_tags("");
    my $tag   = $self->get_a_tag();
    my $title = $node->title();
    if ( defined($title) )
    {
        $tag .= " - $title";
    }
    $self->_add_tags($tag);

    if ( $top_item->_num_subs_to_go() )
    {
        $self->_add_tags("");
        $self->_add_tags("");
    }
}

sub _end_sep
{
}

sub _is_expanded
{
    return 1;
}


1;

__END__