File Coverage

blib/lib/Mojolicious/Plugin/CSSCompressor.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	6	8	75.0
condition	2	4	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	47	51	92.1

package Mojolicious::Plugin::CSSCompressor;

use strict;
use warnings;

use Mojo::Base qw( Mojolicious::Plugin );

use CSS::Compressor qw( css_compress );

our $VERSION = '0.01';

sub HEADER()
{
	'X-CSS-Compressor-Path'
}

sub register
{
	my ( $self, $app, $conf ) = @_;
	my $suffix = $conf->{suffix} // '-min';
	my $re = ref( $suffix )
	       ? $suffix
	       : quotemeta( $suffix )
	;

	$app->hook( before_dispatch => sub {
		my $self = shift;
		my $req = $self->req();
		my $urlpath = $req->url->path();

		# skip it without a matching suffix
		return unless
		    my ( $path ) = $urlpath =~ m!\A (.*) $re \. css \z!x;

		# adjust request path for static dispatch
		$req->url->path( $path . '.css' );

		# keep the original path around to restore later
		$req->headers->remove( HEADER )->add( HEADER, $urlpath );
	} );

	$app->hook( after_dispatch => sub {
		my $self = shift;
		my $req = $self->req();
		my $res = $self->res();

		# the original path indicates when to do something
		return unless
		    my $urlpath = $req->headers->header( HEADER );

		# restore original path
		$req->url->path( $urlpath );

		# only compress when the content type looks ok
		return unless
		    ( $res->headers->content_type() // '' ) =~ m!\A text / css \b!x;

		# get static output
		my $body = $res->body();

		# and deliver compressed version instead
		$res->body( css_compress( $body ) );
	} );
}

1;

__END__