HTML::Widget::JavaScript::Constraint::Printable - JavaScript Printable Constraint

HTML-Widget-JavaScript documentation Contained in the HTML-Widget-JavaScript distribution.

Index

Code Index:

NAME

Top

HTML::Widget::JavaScript::Constraint::Printable - JavaScript Printable Constraint

VERSION

Top

Version 0.02

SYNOPSIS

Top

JavaScript Printable Constraint.

METHODS

Top

See HTML::Widget::Constraint::Printable.

$self->emit_javascript($var_name)

Emits this constraint's JavaScript validation code.

AUTHOR

Top

Nilson Santos Figueiredo Júnior, <nilsonsfj at cpan.org>

BUGS

Top

Please report any bugs or feature requests directly to the author. If you ask nicely it will probably get fixed or implemented.

COPYRIGHT & LICENSE

Top

Copyright 2006, 2009 Nilson Santos Figueiredo Júnior, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

HTML-Widget-JavaScript documentation Contained in the HTML-Widget-JavaScript distribution. 
package HTML::Widget::JavaScript::Constraint::Printable;

use warnings;
use strict;

use base 'HTML::Widget::Constraint::Printable';


our $VERSION = '0.02';


sub emit_javascript {
	my ($self, $var_name) = @_;
	
	my @js_constraints;

	my $not = $self->not ? '' : '!';
	
	for my $param (@{$self->names}) {
		push(@js_constraints, qq[ (${var_name}.${param}.value != '' && $not /^[\\w~!\@#\$\%^&*()_+{}|:"<>?`\\-=\\[\\]\\;',\\/]+\$/.test(${var_name}.${param}.value)) ]);	
	}
	
	return @js_constraints;
}


1; # End of HTML::Widget::JavaScript::Constraint