File Coverage

blib/lib/CGI/FormBuilder/Template/HTC.pm

Criterion	Covered	Total	%
statement	34	36	94.4
branch	1	2	50.0
condition	2	5	40.0
subroutine	9	10	90.0
pod	4	4	100.0
total	50	57	87.7

package CGI::FormBuilder::Template::HTC;
$VERSION = '0.02';
use strict;
use warnings;
use Data::Dumper;
use Carp qw(croak carp);


use CGI::FormBuilder::Util;
use HTML::Template::Compiled;

sub engine_class { 'HTML::Template::Compiled' }

sub new {
    my ($class, @opts) = @_;
    my $opt = arghash(@opts);
    bless $opt, $class;
    $opt->{engine} = $opt->engine_class()->new(%$opt);
    return $opt;
}

sub engine {
    return $_[0]->{engine};
}

sub render {
    my $self = shift;
    my $tvar = shift
        || puke "Missing template expansion hashref (\$form->prepare failed?)";

    my $htc_data = $self->{data} || {};
    my $htc_var  = $self->{variable};     # optional var for nesting

    if ($htc_var) {
        $htc_data->{$htc_var} = $tvar;
    }
    else {
        $htc_data = { %$htc_data, %$tvar };
    }
    my $htc_output;                       # growing a scalar is so C-ish

    $self->{engine}->param(%$htc_data);
    my $output = $self->{engine}->output();

    # string HTML output
    return $output;
} ## end sub render

1;

__END__