view release on metacpan or  search on metacpan

lib/Template/Declare/Bricolage.pm  view on Meta::CPAN

template go => sub {
    my $code = pop;
    xml_decl { 'xml', version => '1.0', encoding => 'utf-8' };
    assets {
        attr { xmlns => $ns };
        $code->();
    }
};

sub bricolage(&) {
    Template::Declare->init( roots => [__PACKAGE__] );
    Template::Declare->show( go => shift );
}

sub import {
    my $pkg = shift;
    my $caller = caller;
    no strict 'refs';
    return shift if defined &{"$caller\::bricolage"};
    *{"$caller\::bricolage"} = \&bricolage;