view release on metacpan or  search on metacpan

lib/HTML/Widgets/NavMenu/Tree/Node.pm  view on Meta::CPAN

}

sub _process_new_sub
{
    my $self = shift;
    my $sub  = shift;
    $self->update_based_on_sub($sub);
}


sub update_based_on_sub
{
    my $self = shift;
    my $sub  = shift;
    if ( my $expand_val = $sub->expanded() )
    {
        $self->expand($expand_val);
    }
}