File Coverage

blib/lib/Data/FormValidator/Util/HTML.pm

Criterion	Covered	Total	%
statement	30	36	83.3
branch	7	14	50.0
condition	2	5	40.0
subroutine	7	7	100.0
pod	0	1	0.0
total	46	63	73.0

package Data::FormValidator::Util::HTML;

use 5.005;
use strict;

require Exporter;
require HTML::TokeParser::Simple;
use vars qw($VERSION @ISA @EXPORT);
@ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

@EXPORT = qw(add_error_tokens);

$VERSION = '0.10';

use  strict;
use HTML::TokeParser::Simple;
use Params::Validate;

sub add_error_tokens {
	my %styles = (
		'ht_comment' => {
			prepend => '  ',
		},
		'ht_tag' => {
			prepend => '
			append  => '"> ',
		},
   );

  my %in = 	validate(@_, {
		html		=> { default => *STDIN },
		prefix  	=> { default => 'err_' },
		style   	=> { default => 'ht_comment' },
		prepend 	=> 0,
		append 	    => 0,
		}
	);

	defined $styles{$in{style}} or die "unknown style: $in{style}";

	# Default to style if none is provided
	$in{prepend} = $styles{$in{style}}->{prepend} unless defined $in{prepend};
	$in{append} = $styles{$in{style}}->{append} unless defined $in{append};

	my $p = HTML::TokeParser::Simple->new($in{html}) ||
		die "failed to create HTML::TokeParser::Simple object: $!";

	my $select_name;
	my $out;
	while ( my $token = $p->get_token ) {
		if ( ( $token->is_start_tag( 'input' ) ) &&
			( $token->return_attr->{type} !~ m/^(button|submit|image)$/i )) {
			my $name = $token->return_attr->{name};
			$out .= $token->as_is.qq/$in{prepend}$in{prefix}$name$in{append}/;
		}
		elsif ( $token->is_start_tag( 'select' ) ) {
			$select_name = $token->return_attr->{name};
			$out .= $token->as_is;
		}
		elsif ( $token->is_end_tag('select') ) {
			$out .= $token->as_is.qq/$in{prepend}$in{prefix}$select_name$in{append}/;
		}
		elsif ( $token->is_start_tag( 'textarea' ) ) {
			my $name = $token->return_attr->{name};
			$out .= qq/$in{prepend}$in{prefix}$name$in{append}/.$token->as_is;
		}
		else {
			$out .= $token->as_is;
		}
	}
	return $out;
}





1;
__END__