|
package LJ::CSS::Cleaner;
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
|
|
use base 'CSS::Cleaner';
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
return $class->SUPER::new( @_,
|
|
pre_hook => sub {
|
|
my $rref = shift;
|
|
|
|
$$rref =~ s/comment-bake-cookie/CLEANED/g;
|
|
return;
|
|
},
|
|
);
|
|
}
|
|
|
|
1;
|