File Coverage

blib/lib/Moonshine/Bootstrap/Component.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	9	10	90.0
condition			n/a
subroutine	12	12	100.0
pod	0	1	0.0
total	77	79	97.4

package Moonshine::Bootstrap::Component;

use 5.006;
use strict;
use warnings;

use Moonshine::Element;
use Moonshine::Magic;
use Moonshine::Util;
use Moonshine::Component;
use Params::Validate qw(:all);
use feature qw/switch/;
no if $] >= 5.017011, warnings => 'experimental::smartmatch';

extends ("Moonshine::Component");

our $VERSION = '0.05';

BEGIN {
    my %grid = (
       map {
              $_ => 0,
              $_ . '_base'   => { default => 'col-' . $_ . '-' },
              $_ . '_offset' => 0,
              $_ . '_offset_base'  => { default => 'col-' . $_ . '-offset-' },
              $_ . '_pull'      => 0,
              $_ . '_pull_base' => { default => 'col-' . $_ . '-pull-' },
              $_ . '_push'      => 0,
              $_ . '_push_base' => { default => 'col-' . $_ . '-push-' },
            } qw/xs sm md/
    );

    my %modify_spec = (
        (
            map { $_ => 0 }
              qw/row switch lead txt switch_base class_base sizing
              sizing_base alignment alignment_base active disable
              justified justified_base container/
        ),
        (
            map { $_ => { optional => 1, type => ARRAYREF } }
              qw/before_element after_element children/
        ),
        %grid,
        (
            map { $_ . '_base' => { default => $_ } }
              qw/active lead row container/
        ),
        disable_base => { default => 'disabled' },
        txt_base     => { default => 'text-' },
    );
    has(
        modifier_spec => sub {
            return \%modify_spec;
        },
        grid_spec => sub {
            return \%grid
        }
    );
}

sub modify {
    my $self = shift;
    my ( $base, $build, $modify ) = @_;

    for (qw/class_base/) {
        if ( defined $modify->{$_} ) {
            $base->{class} = prepend_str( $modify->{ $_ }, $base->{class} );
        }
    }

    my @grid_keys = map  { $_ }
      grep { $_ !~ m{_base$}xms } sort keys %{ $self->grid_spec };
    for ( @grid_keys, qw/switch sizing alignment txt/ ) {
        if ( my $append_class = join_class( $modify->{ $_ . '_base' }, $modify->{$_} ) ) {
            $base->{class} = prepend_str( $append_class, $base->{class} );
        }
    }

    for (qw/active justified disable row lead/) {
        if ( defined $modify->{$_} ) {
            $base->{class} = prepend_str( $modify->{ $_ . '_base' }, $base->{class} );
        }
    }

    if ( my $container = $modify->{container} ) {
        my $cb = $modify->{container_base};
        my $container_class = ( $container =~ m/^\D/ )
          ? sprintf "%s-%s", $cb, $container
          : $cb;
        $base->{class} = prepend_str( $container_class, $base->{class} );
    }

    return $base, $build, $modify;
}

1;

__END__