File Coverage

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

Criterion	Covered	Total	%
statement	30	33	90.9
branch	8	10	80.0
condition	1	2	50.0
subroutine	4	4	100.0
pod			n/a
total	43	49	87.7

package Moonshine::Bootstrap::Component::ButtonGroup;

use Moonshine::Magic;
use Moonshine::Util;
use Params::Validate qw/ARRAYREF/;

extends(
    'Moonshine::Bootstrap::Component',
    'Moonshine::Bootstrap::Component::Button',
    'Moonshine::Bootstrap::Component::Dropdown',
);

has(
    button_group_spec => sub {
        {
            tag            => { default => 'div' },
            role           => { default => 'group' },
            class_base     => { default => 'btn-group' },
            sizing_base    => { default => 'btn-group-' },
            vertical       => 0,
            justified_base => { default => 'btn-group-justified' },
            nested         => {
                type     => ARRAYREF,
                optional => 1,
            },
            group => {
                type => ARRAYREF,
            }
        };
    }
);

sub button_group {
    my ($self) = shift;

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

    if ( $vertical = $build_args->{vertical} ) {
        $base_args->{class} =
          prepend_str( 'btn-group-vertical', $base_args->{class} );
    }

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

    my %drop_down_args = ( class => 'btn-group', role => 'group' );
    for ( @{ $build_args->{group} } ) {
        if ( exists $_->{group} ) {
            $button_group->add_child( $self->button_group($_) );
        }
        elsif ( delete $_->{dropdown} ) {
            $button_group->add_child(
                $self->dropdown( { %{$_}, %drop_down_args } ) );
        }
        else {
            $button_group->add_child( $self->button($_) );
        }
    }

    for ( @{ $build_args->{nested} } ) {
        my $index = delete $_->{index};
        my $nested_button_group =
          delete $_->{dropdown}
          ? $self->dropdown( { %{$_}, %drop_down_args } )
          : $self->button_group($_);

        if ($index) {
            splice @{ $button_group->{children} }, $index - 1, 0,
              $nested_button_group;
        }
        else {
            push @{ $button_group->{children} }, $nested_button_group;
        }
    }

    return $button_group;
}

1;

__END__