view release on metacpan or  search on metacpan

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

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
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;