view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  version: 1.3
name: Catalyst-View-Template-Declare
no_index: 
  directory: 
    - inc
    - t
requires: 
  Catalyst::View::Templated: 0
  Class::C3: 0
  Module::Pluggable::Object: 0
  PadWalker: 0
  Template::Declare: 0.26
version: 0.04

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;

name 'Catalyst-View-Template-Declare';
all_from 'lib/Catalyst/View/Template/Declare.pm';
requires 'Catalyst::View::Templated';
requires 'Template::Declare' => '0.26';
requires 'Class::C3';
requires 'Module::Pluggable::Object';
requires 'PadWalker';

build_requires 'Test::More';
build_requires 'Catalyst::Runtime' => '5.7000';
auto_install;
WriteAll;

lib/Catalyst/View/Template/Declare.pm  view on Meta::CPAN

    Template::Declare->new_buffer_frame;
    local *_ = $_[0];
    my $out = Template::Declare->show($template, $self->context, @_);
    Template::Declare->end_buffer_frame;

    $out =~ s/^\n+//g; # kill leading newlines
    return $out;
}

package c;
use PadWalker qw(peek_my);
our $AUTOLOAD;
sub AUTOLOAD {
    shift; # kill class

    # walk up the stack looking for the Catalyst context
    # in a lexical somewhere (evil, yes.)
    my $frames_up = 1;
    my $context;
    while($frames_up < 300 && !$context){
        ($context) =