HTML::EmbeddedPerl - The Perl embeddings for HTML.
automatic.
passing of instanced object $epl. example of use in the code tags.
# output header ($key,$value) $epl->header_out('Content-Type','text/html'); # set of contents type, default is 'text/html', output forcing. $epl->content_type('text/html');
$htm = I<something>;
use HTML::EmbeddedPerl; $e = HTML::EmbeddedPerl->new();
# output header ($key,$value) $e->header_out('Content-Create','foo'); # set of contents type, default is 'text/html' $e->content_type('text/plain');
# flushing header and contents. (example 1) $e->ep(\$htm);
# not flushing header, return contents to $r. $r = $e->ep(\$htm);
# flushing HTTP header. $e->flush; # same above. (example 1) print $r;
The Perl-Code embeddings for HTML, it is simple and easy.
adding <$ Perl-Code $> to your HTML. if code blocks too many, cannot use local variables between code blocks.
if you want not use of global variables, please use $var. destruct $var after execute. but it can use between multiple tags too.
E<lt>FilesMatchE<quot>.*\.phtml?$E<quot>E<gt> SetHandler B<perl-script> PerlResponseHandler HTML::EmbeddedPerl PerlOptions +ParseHeaders E<lt>/FilesMatchE<gt>
inserting first line to
#!/your/path/twepl
if you cannot use twepl? but wrapper.pl is available.
AddType application/x-embedded-perl .phtml AddHandler application/x-embedded-perl .phtml Action application/x-embedded-perl I</your/path/wrapper>
force exiting over the timeout for loop detection. $TIMEOUT is global, please change it overwritten.
# default is E<quot>2E<quot> seconds. $TIMEOUT = 2;
already executing under alarm, cannot change that timeout.
# set as new timeout. alarm($TIMEOUT); # cancelling timeout. alarm(0);
$TIMEOUT = B<X>; # cancelling timeout and unset timeout. alarm(($TIMEOUT=0));
# set as new timeout. alarm(B<X>);
before calling sub ep()
$HTML::EmbeddedPerl::TIMEOUT = B<X>;
$TIMEOUT(global) $epl $var
Twinkle Computing <twinkle@cpan.org>