File Coverage

blib/lib/Data/FormValidator/Filters/HTMLScrubber.pm

Criterion	Covered	Total	%
statement	16	22	72.7
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	1	1	100.0
total	21	30	70.0

package Data::FormValidator::Filters::HTMLScrubber;

use strict;
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
use HTML::Scrubber;

BEGIN {
	require Exporter;
	$VERSION = '0.02';
	@ISA = qw( Exporter );
	@EXPORT = qw();
	%EXPORT_TAGS = (
		'all' => [ qw( html_scrub ) ]
	);
	@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
}

sub html_scrub {
	my %args = @_;
	return sub { return _html_scrub( shift, %args ) };
}

sub _html_scrub {
	my ($value,%args) = @_;
	my $scrubber = HTML::Scrubber->new(
		default => $args{default},
		allow => $args{allow},
		deny => $args{deny},
		rules => $args{rules},
		process => $args{process},
		comment => $args{comment}
	);
	return $scrubber->scrub($value);
}

1;
__END__