NAME

HTML::EmbeddedPerl - The Perl embeddings for HTML.

SYNOPSYS

automatic.

run in the automatically

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');

using in the script

  $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;

DESCRIPTION

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.

modperl2

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>

cgi

inserting first line to

  #!/your/path/twepl

wrapper

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>

TIMEOUT

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);

modperl2

  $TIMEOUT = B<X>;
  # cancelling timeout and unset timeout.
  alarm(($TIMEOUT=0));

cgi

  # set as new timeout.
  alarm(B<X>);

wrapper

before calling sub ep()

  $HTML::EmbeddedPerl::TIMEOUT = B<X>;

RESERVED

  $TIMEOUT(global)
  $epl
  $var

AUTHOR

Twinkle Computing <twinkle@cpan.org>

cpanm HTML::EmbeddedPerl

perl -MCPAN -e shell
install HTML::EmbeddedPerl