5 my $arg = $m->dhandler_arg;
7 if ( $arg =~ m{^(.*)-squished(\.[^\.]+)$} ) {
8 $path = $m->current_comp->dir_path .'/'. $1 . $2;
14 $squisher = new RT::CSS::Squish unless $squisher;
15 $squisher->{'mason'} = $m;
17 $m->out( $squisher->concatenate( $path ) );
19 package RT::CSS::Squish;
20 use CSS::Squish '0.06';
21 use base qw(CSS::Squish);
25 my $content = $self->{'mason'}->scomp($file);
26 open my $fh, '<', \$content or die "$!";