Sledge::Plugin::Stash

Catalystみたいに stash に変数を突っ込める、Sledge::Plugin::Stashですが、自分とこのサーバではうまい事動かなかったので同ソースをちょっと修正。

/usr/local/lib/perl5/site_perl/5.8.8/Sledge/Plugin/Stash.pm

BEFORE_OUTPUT —> AFTER_DISPATCH に変更。

$pkg->add_trigger(
AFTER_DISPATCH => sub {
#BEFORE_OUTPUT => sub {
my $self = shift;
$self->tmpl->param( %{ $self->stash } );
}
);

ちなみにSledge::Plugin::BeforeOutputはこちらからcoできるみたいです

↓Class::TriggerとSledge::Plugin::BegforeOutputの組み合わせに注意
Sledge-Plugin-BeforeOutput で嵌る