/ 
Catalyst-Plugin-Message-0.01
River stage zero No dependents
/ Catalyst::Plugin::Message

NAME

Catalyst::Plugin::Message - The great new Catalyst::Plugin::Message!

VERSION

Version 0.01

SYNOPSIS

# in your controller
use Catalyst qw/Message/;
sub register : Local {
    my ( $self, $c ) = @_;
    if ( $c->req->method eq 'POST' ){
       my $email = $c->req->param('email');
       $c->errmsg( email => 'email can not be empty.' ) unless defined $email;
       $c->errmsg( email => 'email invalid.' ) unless $email =~ /\@/;
       if ( not $c->errmsg ){
       	# save data
       }
    }
    $c->stash->{'template'} = 'register.tpl';
}

# register.tpl
[% errmsg.email %]

errmsg

pass some error message return to the previous page, every message has a key to indicate which aspect.

you can make more error messages relate to a key, only the first message will save into stash.

tipmsg

same as errmsg, just make some tips message return.

AUTHOR

Chunzi, <chunzi at cpan.org>

BUGS

Please report any bugs or feature requests to bug-catalyst-plugin-message at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Plugin-Message. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Catalyst::Plugin::Message

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2006 Chunzi, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.