view release on metacpan or  search on metacpan

lib/Catalyst/View/ByCode/Renderer.pm  view on Meta::CPAN

               # everything else is stringified
               : "$_"
         } @_);
}

######################################## EXPORTED FUNCTIONS
#
# a template definition instead of sub RUN {}
#
sub template(&) {
    my $package = caller;

    my $code = shift;
    no strict 'refs';
    *{"$package\::RUN"} = sub {
        push @{$top[-1]}, [ '', {} ];

        push @top, $top[-1]->[-1];

        my $text = $code->();