scary_td+mxd.pl

use 5.010;
use MooseX::Declare;

class Blarg
{
    use MooseX::NonMoose;
    use Template::Declare::Tags('HTML');
    extends 'Template::Declare';
    
    method foo(ClassName $class: Int $thing) { div { p { "My thing is: $thing" } } }
    around foo(ClassName $class: Int $thing) { div { attr { class => 'wrapper'}; $class->$orig($thing); } }

    template foo => \&foo
}

Template::Declare->init( dispatch_to => ['Blarg'] );
say Template::Declare->show( 'foo', 2 );

__END__
produces:

<div class="wrapper">
 <div>
  <p>My thing is: 2</p>
 </div>
</div>