package File::Assets::Filter::CSS; use strict; use warnings; use base qw/File::Assets::Filter/; use Digest; use File::Assets; my %default = (qw/ skip_single 0 check_age 1 check_digest 1 /, ); sub new { my $class = shift; my $self = $class->SUPER::new(@_); local %_ = @_; while (my ($setting, $value) = each %default) { $self->cfg->{$setting} = exists $_{$setting} ? $_{$setting} : $value; } return $self; } sub post { my $self = shift; $self->SUPER::post(@_); my $assets = shift; my $matched = shift; return unless @$matched; return if $self->cfg->{skip_single} && 1 == @$matched; my %bucket; for my $asset (@$matched) { } my $type = $self->type; return if $self->skip_if_exists; my $build = $self->should_build; if ($build) { $self->check_digest_file->touch; $self->build; } $self->replace; } 1;