lib/Gruntmaster/Page/CSS.pm

   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{
  14         my ($self, $format, $logger, $theme) = @_;
  15         debug $logger => "theme is $theme";
  16         my $css = read_file "css/themes/$theme.css";
  17         $css .= read_file $_ for <css/*.css>;
  18         [200, ['Content-Type' => 'text/css', 'Cache-Control' => 'max-age=604800'], [minify $css] ]
  19 }
  20
  21 sub variants{ [[css => 1, 'text/css', undef, undef, undef, undef]] }
  22
  23 1