File Coverage

blib/lib/Set/CSS.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	5	5	100.0
total	53	53	100.0

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

use parent 'Set::Object';

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

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

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

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;
}

sub addClass
{
    my ( $self, @c ) = @_;

    $self->insert(@c);

    return;
}

sub removeClass
{
    my ( $self, @c ) = @_;

    $self->remove(@c);

    return;
}

sub toggleClass
{
    my ( $self, @c ) = @_;

    $self->invert(@c);

    return;
}

1;

__END__