File Coverage

blib/lib/Set/CSS.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	38	38	100.0

package Set::CSS;
$Set::CSS::VERSION = '0.0.1';
use 5.014;
use strict;
use warnings;

use parent 'Set::Object';

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

    if ( $args->{on_empty} or !( $self->is_null ) )
    {
        return { class => join( " ", @$self ) };
    }
    return +{};
}

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

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

    my $att = $self->html_attrs($args);
    my $ret = "";
    foreach my $k ( sort keys %$att )
    {
        $ret .= qq# $k="# . escape_html( $att->{$k} ) . qq#"#;
    }
    return $ret;
}

1;

__END__