more_td+mxd.pl

use 5.010;
use MooseX::Declare;

role Template::Declare::AutoForm::Entity(CodeRef :$tag)
{
    method preamble(ClassName $name: Ref $arg?) { }
    method attributes(ClassName $name: Ref $arg?) { }
    method guts(ClassName $name: Ref $arg?) { }
    method epilogue(ClassName $name: Ref $arg?) { }

    method build(ClassName $name: Ref $arg?)
    {
        $name->preamble($arg);
        $tag->
        (
            sub
            {
                $name->attributes($arg);
                $name->guts($arg);
            }
        );
        $name->epilogue($arg);
    }
}

class UseTD
{
    use MooseX::NonMoose;
    use Template::Declare::Tags('HTML');
    extends 'Template::Declare';
    
    with 'Template::Declare::AutoForm::Entity' => { tag => \&div };
    
    around guts (ClassName $class: Ref $arg?)
    {
        p { "Woohoo" }
    }

    around attributes(ClassName $class: Ref $arg?)
    {
        attr { 'class' => 'some_cool_class' }
    }

    around preamble(ClassName $class: Ref $arg?)
    {
        script { "var x = $$arg;" }
    }

    template build => \&build;
}

Template::Declare->init( dispatch_to => ['UseTD'] );
say Template::Declare->show( 'build', \2 );


__END__
produces:

<script>var x = 2;</script>
<div class="some_cool_class">
 <p>Woohoo</p>
</div>