File Coverage

blib/lib/CGI/Application/Plugin/View/HTML/Template.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	32	40	80.0

package CGI::Application::Plugin::View::HTML::Template;

use strict;
use warnings;

use vars qw($VERSION);
require Exporter;


$VERSION = '0.02';

sub import { my $caller = scalar(caller);
             $caller->add_callback('postrun', \&my_postrun);
             goto &Exporter::import }


sub my_postrun {

my ($self, $bodyref) = @_;

# Don't do anything for 'redirect' and 'none'.
if ($self->header_type() ne 'header') {
  return;
}


# Try to automatically populate the template.
my $template = $self->param('template');

# Not an H::T template?
if (ref($template) ne 'HTML::Template' and ref($template) ne 'HTML::Template::Compiled') {
  return;
}

# If the template param name is in the stash, set the template using it.
foreach my $name ($template->param()) {

  my $param = $self->param($name);

  if ($param) {
    $template->param($name => $param);
  }
}

# Add to what this plugin was called with.
${$bodyref} .= $template->output();

return;

}

1;


__END__