CatalystX::FeedbackMessages - Easy way to stuff "status" messages into your stash
version 0.0603
use Catalyst qw/ ... +CatalystX::FeedbackMessages /; # later... package MyApp::Controller::Blargh; ... sub fnargh : Local { my ($self, $c) = @_; ## do some form submission stuff if( $form_stuff_is_successful ) { $c->msg("Successful submission is successful!"); } }
Open up your wrapper and add these lines:
[% FOR message IN messages -%] [% message %] [% END -%]
(Add formatting as you please)
This module was inspired while working with Mischa Spiegelmock on a Catalyst project. He had put together a small plugin/mixin (astonishingly similar to this one :-) that allowed you to add an arbitrary number of messages to $c-stash> via an arrayref which could be iterated through by Template::Toolkit.
$c-
msgs $message
Push a message into the array
None, yet.
Devin Austin, <dhoss@cpan.org>
With thanks to Mischa Spiegelmock
Allow user to specify names for message keys
I dunno :-)
Copyright (c) 2005-2008 the aforementioned authors. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install CatalystX::FeedbackMessages, copy and paste the appropriate command in to your terminal.
cpanm
cpanm CatalystX::FeedbackMessages
CPAN shell
perl -MCPAN -e shell install CatalystX::FeedbackMessages
For more information on module installation, please visit the detailed CPAN module installation guide.