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, $logger, $theme) = @_;
- debug $logger => "theme is $theme";
+ 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'], [minify $css] ]
+ [200, ['Content-Type' => 'text/css', 'Cache-Control' => 'public, max-age=604800', 'X-Forever' => 1], [minify $css] ]
}
-sub variants{ [[css => 1, 'text/css', undef, undef, undef, undef]] }
-
1