Here goes...hopefully a simple test case for the RunAfterRequest oddness.
The code below works as expected...an email is dispatched. ============== sub tester :Local { my ( $self, $c ) = @_; $c->stash( email => { to => 'st...@prodhub.com', from => 'bocks...@mac.com', subject => 'RunAfterRequest Test', templates => [ { template => 'test.tt2', content_type => 'text/plain', view => 'TT', }, ], }, ); $c->forward( $c->view('Email::Template') ); $c->response->body('foo bar'); } ============== The code below with the forward INSIDE 'run_after_request' subroutine throws the error: > [error] Caught exception in engine "Modification of non-creatable array value > attempted, subscript -1 at > /usr/local/lib/perl5/site_perl/5.10.1/Catalyst/Dispatcher.pm line 278." Doesn't matter whether the stash call is inside or outside the subroutine. ============== sub tester :Local { my ( $self, $c ) = @_; $c->stash( email => { to => 'st...@prodhub.com', from => 'bocks...@mac.com', subject => 'RunAfterRequest Test', templates => [ { template => 'test.tt2', content_type => 'text/plain', view => 'TT', }, ], }, ); $c->run_after_request( sub { $c->forward( $c->view('Email::Template') ); }); $c->response->body('foo bar'); } ============== The Catalyst::Dispatcher code where the error occurs is the $c->stack line below: ============== sub _action_rel2abs { my ( $self, $c, $path ) = @_; unless ( $path =~ m#^/# ) { my $namespace = $c->stack->[-1]->namespace; $path = "$namespace/$path"; } $path =~ s#^/##; return $path; } ============== [END] On Apr 29, 2010, at 11:18 PM, Devin Austin wrote: > > > On Fri, Apr 30, 2010 at 12:09 AM, Tomas Doran <bobtf...@bobtfish.net> wrote: > > On 30 Apr 2010, at 07:00, Steve Kleiman wrote: > Thanks in advance for any insights. > > No ideas I'm afraid. > > However I don't see any reason why this couldn't / shouldn't work.. > > Could you work up some test cases (or a very small test app) for either > View::Email or ::RunAfterRequest which demonstrates the issue? > > Cheers > t0m > > > _______________________________________________ > List: Catalyst@lists.scsys.co.uk > Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst > Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ > Dev site: http://dev.catalyst.perl.org/ > > Yes, patches welcome, I'd like to see how this would work. > > -- > Devin Austin > http://www.codedright.net > 9702906669 - Cell > _______________________________________________ > List: Catalyst@lists.scsys.co.uk > Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst > Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ > Dev site: http://dev.catalyst.perl.org/
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/