[gruntmaster-page.git] / lib / Gruntmaster / Page / CSS.pm

package Gruntmaster::Page::CSS;

use 5.014000;
use strict;
use warnings;
use Gruntmaster::Page::Base;
our @ISA = qw/Gruntmaster::Page::Base/;
our $VERSION = '0.001';

use File::Slurp qw/read_file/;
use CSS::Minifier::XS qw/minify/;

sub generate{
	my ($self, $format, $env, $theme) = @_;
	debug $env => "theme is $theme";
	return [404, ['Content-Type' => 'text/plain'], [ 'Not found' ]] unless -e "css/themes/$theme.css";
	my $css = read_file "css/themes/$theme.css";
	$css .= read_file $_ for <css/*.css>;
	[200, ['Content-Type' => 'text/css', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [minify $css] ]
}

1
Commit	Line	Data
7dc32473 MG	1	package Gruntmaster::Page::CSS;
	2
	3	use 5.014000;
	4	use strict;
	5	use warnings;
	6	use Gruntmaster::Page::Base;
	7	our @ISA = qw/Gruntmaster::Page::Base/;
	8	our $VERSION = '0.001';
	9
	10	use File::Slurp qw/read_file/;
	11	use CSS::Minifier::XS qw/minify/;
	12
	13	sub generate{
191f4979 MG	14	my ($self, $format, $env, $theme) = @_;
191f4979 MG	15	debug $env => "theme is $theme";
5a2112d3	16	return [404, ['Content-Type' => 'text/plain'], [ 'Not found' ]] unless -e "css/themes/$theme.css";
7dc32473 MG	17	my $css = read_file "css/themes/$theme.css";
7dc32473 MG	18	$css .= read_file $_ for <css/*.css>;
49c1467a	19	[200, ['Content-Type' => 'text/css', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [minify $css] ]
7dc32473 MG	20	}
7dc32473 MG	21
7dc32473	22	1