td inside.pm

package Test;
use warnings;
use strict;
use Template::Declare::Tags;

sub new {
    my $class = shift;
    bless { } , $class ;  
}

sub widget_1 {
    my $self = shift;
    my $template = sub { 
        my $self = shift;
        h3 { " Test2 " }; 
    }; 
    Template::Declare->buffer->push( private => 1);
    $template->( $self ); 
    return Template::Declare->buffer->pop;
}

1;