package HTCForm;
use strict;
use warnings;
use Moose;
has token => (is => 'rw', isa => 'Str');
has takeme => (is => 'rw', isa => 'Str');

HTML::Template::Compiled->register(__PACKAGE__);

sub register {
    my ($class) = @_;
    my %plugs = (
        tagnames => {
            HTML::Template::Compiled::Token::OPENING_TAG() => {
                FORM => [sub { exists $_[1]->{NAME} }, qw/ NAME METHOD URL TOKEN /],
            },
            HTML::Template::Compiled::Token::CLOSING_TAG() => {
                FORM => [undef],
            },
        },
        compile => {
            FORM => {
                open => \&open_form,
                close => \&close_form,
            },
        },
    );
    return \%plugs;
}

my @stack;
sub close_form {
    my ($htc, $token, $args) = @_;
    my $OUT = $args->{out};
    my $token_def = pop @stack;
    my @defs = split /,/, $token_def;
    my $expression = "";
    for my $def (@defs) {
        if ($def eq 'TAKEME') {
            $expression .= <<"EOM";
$OUT '<input type="hidden" name="TAKEME" value="' . \$t->get_plugin('HTCForm')->takeme . '">
';
EOM
        }
        elsif ($def eq 'TOKEN') {
            $expression .= <<"EOM";
$OUT '<input type="hidden" name="TOKEN" value="' . \$t->get_plugin('HTCForm')->token . '">
';
EOM
        }
    }
    $expression .= qq{$OUT '</form>';\n};
    return $expression;
}

sub open_form {
    my ($htc, $token, $args) = @_;
    my $OUT = $args->{out};
    my $attr = $token->get_attributes;
    my $name = $attr->{NAME};
    my $method = $attr->{METHOD};
    my $url = $attr->{URL};
    my $token = $attr->{TOKEN};
    push @stack, $token;
    my $expression = <<"EOM";
$OUT '<form name="$name" method="$method" action="$url">'; 
EOM
    return $expression;
}

1;

use HTML::Template::Compiled;
use HTCForm;
my $form = HTCForm->new;

my $htc = HTML::Template::Compiled->new(
    filename => "form.html",
    plugin => [$form],
    debug => 1,
);

$form->token('fd9d8aa21e71f7626d6cc35');
$form->takeme('1234567');
say $htc->output;
$form->token('abc');
$form->takeme('123');
say $htc->output;

test
<%form name="test" method=post url=/bar.pl token="TOKEN,TAKEME" %>
Formular
<%/form %>

test
<form name="test" method="post" action="/bar.pl">
Formular
<input type="hidden" name="TOKEN" value="fd9d8aa21e71f7626d6cc35">
<input type="hidden" name="TAKEME" value="1234567">
</form>

test
<form name="test" method="post" action="/bar.pl">
Formular
<input type="hidden" name="TOKEN" value="abc">
<input type="hidden" name="TAKEME" value="123">
</form>