HTML::EmbeddedPerl - The Perl embeddings for HTML.

- NAME
- SYNOPSYS

- run in the automatically
- using in the script

- DESCRIPTION

- modperl2
- cgi
- wrapper

- TIMEOUT

- modperl2
- cgi
- wrapper

- BETA Features
- RESERVED

- Subroutines
- Variables

- AUTHOR
- LISENCE

# NAME

HTML::EmbeddedPerl - The Perl embeddings for HTML.

# SYNOPSYS

recommends run on automatic.

## run in the automatically

passing of instanced object $epl. that are reference of Apache::RequestRec(modperl) or __PACKAGE__(cgi). 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 = 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.

      <FilesMatch ".*\.phtml?$">
      SetHandler modperl
      PerlResponseHandler HTML::EmbeddedPerl
      PerlOptions +ParseHeaders
      </FilesMatch>

for most compatibility, use PerlResponseHandler perl-script.

## 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 /your/path/wrapper

# TIMEOUT

force exiting over the timeout for loop detection. $TIMEOUT is global, please change it overwritten.

      # default is "2" seconds.
      $TIMEOUT = 2;

already executing under alarm, cannot change that timeout.

      # set as new timeout.
      alarm($TIMEOUT);
      # cancelling timeout.
      alarm(0);

## modperl2

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

## cgi

      # set as new timeout.
      alarm(X);

## wrapper

before calling sub ep()

      $HTML::EmbeddedPerl::TIMEOUT = X;

# BETA Features

replace variables on non-code blocks. (not a reference) scalar only.

# RESERVED

it tiny-tiny solving cgi-modperl compatibility.

## Subroutines

base.

      ep
      handler
      new

for cgi interface. other Subs define it freely.

      header_out
      content_type
      print
      flush

for modperl, run in the depends Apache::RequestRec and more.

## Variables

      $TIMEOUT(global)
      $epl
      $var

# AUTHOR

Twinkle Computing <twinkle@cpan.org>

# LISENCE

Copyright (c) 2010 Twinkle Computing All rights reserved.

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