File Coverage

blib/lib/HTML/Widgets/NavMenu/TagGen.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	40	40	100.0

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

use parent 'HTML::Widgets::NavMenu::Object';

use HTML::Widgets::NavMenu::EscapeHtml qw/ escape_html /;

__PACKAGE__->mk_acc_ref( [qw(name attributes)] );


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

    $self->name( $args->{'name'} );
    $self->attributes( $args->{'attributes'} );

    return 0;
}


sub gen
{
    my $self = shift;

    my $attr_values = shift;

    my $is_standalone = shift || 0;

    my @tag_list = keys(%$attr_values);

    @tag_list = ( grep { defined( $attr_values->{$_} ) } @tag_list );

    @tag_list = ( sort { $a cmp $b } @tag_list );

    my $attr_spec = $self->attributes();

    return "<" . $self->name() . join(
        "",
        map {
            " $_=\""
                . (
                $attr_spec->{$_}->{'escape'}
                ? escape_html( $attr_values->{$_} )
                : $attr_values->{$_}
                )
                . "\""
        } @tag_list
    ) . ( $is_standalone ? " /" : "" ) . ">";
}

1;

__END__