package HTML::Shakan::Filter::HTMLScrubber;
use strict;
use warnings;
use Mouse;
use HTML::Scrubber;
has scrubber => (
is => 'ro',
isa => 'HTML::Scrubber',
default => sub { HTML::Scrubber->new() },
);
sub filter {
my ($self, $val) = @_;
$self->scrubber->scrub($val);
}
no Mouse;
__PACKAGE__->meta->make_immutable;
__END__
=head1 NAME
HTML::Shakan::Filter::HTMLScrubber - HTML::Scrubber filter
=head1 SYNOPSIS
TextField(name => 'body', filters => [qw/HTMLScrubber/])
=head1 DESCRIPTION
remove scripts from this field's value.
=head1 AUTHORS
Tokuhiro Matsuno
=head1 SEE ALSO
L<HTML::Scrubber>