Dual-license your content for inclusion in The Perl 5 Wiki using this HOWTO, or join us for a chat on irc.freenode.net#PerlNet.
Melbourne Perl Mongers/8th March 2006/InfoAssistant.pm
From PerlNet
Don't write directly - use the create scripts and then compare your code with this one (cut down version below)
In fact the only change here from the create is adding "DefaultEnd" and "Prototype" to the "use Catalyst" line - which is how you add a Plugin.
package InfoAssistant;
use strict;
use warnings;
use Catalyst qw/-Debug ConfigLoader Static::Simple DefaultEnd Prototype/;
our $VERSION = '0.01';
__PACKAGE__->setup;
sub default : Private {
my ( $self, $c ) = @_;
$c->response->body( $c->welcome_message );
}
1
