[Bast-commits] r6237 - ironman/plagger/lib/Plagger
penfold at dev.catalyst.perl.org
penfold at dev.catalyst.perl.org
Tue May 12 19:49:39 GMT 2009
Author: penfold
Date: 2009-05-12 19:49:38 +0000 (Tue, 12 May 2009)
New Revision: 6237
Modified:
ironman/plagger/lib/Plagger/Text.pm
Log:
Add HTML::Scrubber to html method
Modified: ironman/plagger/lib/Plagger/Text.pm
===================================================================
--- ironman/plagger/lib/Plagger/Text.pm 2009-05-12 19:21:58 UTC (rev 6236)
+++ ironman/plagger/lib/Plagger/Text.pm 2009-05-12 19:49:38 UTC (rev 6237)
@@ -1,5 +1,6 @@
package Plagger::Text;
use strict;
+
use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors(qw( type data ));
@@ -8,6 +9,7 @@
use HTML::Tagset;
use Plagger::Util;
use HTML::Truncate;
+use HTML::Scrubber;
sub new {
my($class, %param) = @_;
@@ -47,7 +49,10 @@
sub html {
my $self = shift;
if ($self->is_html) {
- return $self->data;
+ my $scrubber = HTML::Scrubber->new();
+ $scrubber->style(1);
+ $scrubber->script(1);
+ return $scrubber->scrub($self->data);
} else {
Plagger::Util::encode_xml($self->data);
}
More information about the Bast-commits
mailing list