File Coverage

blib/lib/Moonshine/Bootstrap/Component/Panel.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition	1	2	50.0
subroutine	3	3	100.0
pod			n/a
total	20	21	95.2

package Moonshine::Bootstrap::Component::Panel;

use Moonshine::Magic;
use Params::Validate qw/HASHREF/;

extends (
    'Moonshine::Bootstrap::Component',
    'Moonshine::Bootstrap::Component::PanelHeader',
    'Moonshine::Bootstrap::Component::PanelBody',
    'Moonshine::Bootstrap::Component::PanelFooter',
);

has(
    panel_spec => sub {
        {
            tag         => { default  => 'div' },
            class_base  => { default  => 'panel' },
            switch      => { default  => 'default' },
            switch_base => { default  => 'panel-' },
            header      => { optional => 1, type => HASHREF },
            body        => { optional => 1, type => HASHREF },
            footer      => { optional => 1, type => HASHREF },
        };
    }
);

sub panel {
    my ($self) = shift;

    my ( $base_args, $build_args ) = $self->validate_build(
        {
            params => $_[0] // {},
            spec => $self->panel_spec,
        }
    );

    my $base_element = Moonshine::Element->new($base_args);

    for (qw/header body footer/) {
        if ( $build_args->{$_} ) {
            my $action = sprintf 'panel_%s', $_;
            $base_element->add_child($self->$action($build_args->{$_}));
        }
    }

    return $base_element;
}

1;

__END__