File Coverage

blib/lib/Dancer2/Plugin/Minify.pm

Criterion	Covered	Total	%
statement	46	47	97.8
branch	6	8	75.0
condition	15	37	40.5
subroutine	13	13	100.0
pod			n/a
total	80	105	76.1

use strictures;

package Dancer2::Plugin::Minify;

# ABSTRACT: Minify HTML, JavaScript and CSS

use Dancer2::Plugin;

use HTML::Packer;
use JavaScript::Packer;
use CSS::Packer;
use Moo::Role;

our $VERSION = '0.001';    # VERSION

has html => (
    is      => 'lazy',
    builder => sub { HTML::Packer->init },
);

has js => (
    is      => 'lazy',
    builder => sub { JavaScript::Packer->init },
);

has css => (
    is      => 'lazy',
    builder => sub { CSS::Packer->init },
);

register minify => sub {
    my ( $dsl, $what, $text, $args ) = @_;
    return unless defined $text;
    $args //= {};
    return $dsl->_minify_js( $text, $args ) if $what eq 'js';
    return $dsl->_minify_css( $text, $args ) if $what eq 'css';
    return $dsl->_minify_html( $text, $args ) if $what eq 'html';
    $dsl->error("unknown engine: $what");
  },
  { is_global => 1 };

sub _minify_html {
    my ( $dsl, $html, $args ) = @_;
    my $cfg = plugin_setting;
    my $remove_comments = $cfg->{remove_comments} // $args->{remove_comments}
      // 1;
    my $remove_newlines = $cfg->{remove_newlines} // $args->{remove_newlines}
      // 1;
    my $js_compress = $cfg->{js_compress} // $args->{js_compress} // 'best';
    my $css_compress = $cfg->{css_compress} // $args->{css_compress}
      // 'minify';
    my $html5 = $cfg->{html5} // $args->{html5} // 1;
    $dsl->html->minify(
        \$html,
        {
            remove_comments => $remove_comments,
            remove_newlines => $remove_newlines,
            do_javascript   => $js_compress,
            do_stylesheet   => $css_compress,
            html5           => 1,
        }
    );
    return $html;
}

sub _minify_js {
    my ( $dsl, $js, $args ) = @_;
    my $cfg = plugin_setting;
    my $comress = $cfg->{js_compress} // $args->{compress} // 'best';
    $dsl->js->minify(
        \$js,
        {
            compress => $comress,
        }
    );
    return $js;
}

sub _minify_css {
    my ( $dsl, $css, $args ) = @_;
    my $cfg = plugin_setting;
    my $comress = $cfg->{css_compress} // $args->{compress} // 'minify';
    $dsl->css->minify(
        \$css,
        {
            compress => $comress,
        }
    );
    return $css;
}

register_plugin;

1;

__END__