File Coverage

blib/lib/Dancer2/Plugin/Minify.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	6	8	75.0
condition	15	37	40.5
subroutine	12	12	100.0
pod			n/a
total	76	101	75.2

use strictures;

package Dancer2::Plugin::Minify;

# ABSTRACT: Minify HTML, JavaScript and CSS

use Dancer2::Plugin;

use HTML::Packer;
use JavaScript::Packer;
use CSS::Packer;

our $VERSION = '0.002'; # 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__