Acme-PETEK-Testkit
1 match

 view release on metacpan or  search on metacpan

lib/Acme/PETEK/Testkit/modperl1.pm  view on Meta::CPAN 

=cut

sub gen_page {
	my $value = shift;

	return <<HTML;
<html><head><title>Counter: $value</title></head>
<body><form method="post"><input type="hidden" name="cur" value="$value">
<div align="center">
	<p><big>Current Value: <u>$value</u></big></p>
	<p><input type="text" name="decrval" value="1" size="3" maxlength="3"
		/><input type="submit" name="decrn" value="&lt;&lt;"
		/><input type="submit" name="decr1" value="&lt;"
		/><input type="submit" name="reset" value="-0-" 
		/><input type="submit" name="incr1" value="&gt;"
		/><input type="submit" name="incrn" value="&gt;&gt;"
		/><input type="text" name="incrval" value="1" size="3" maxlength="3"
		/></p>
</div>
</body></html>
HTML
}

=head2 valid_int

Returns true if the supplied argument is a valid integer.



( run in 0.639 second using v1.01-cache-2.11-cpan-65fba6d93b7 )