22 lines
328 B
Perl
22 lines
328 B
Perl
|
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;
|