1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
package GroLUG; use strict;use warnings; use Catalyst qw/-Debug ConfigLoader Static::Simple DefaultEnd Session Session::Store::DBI Session::State::Cookie/; our $VERSION = '0.01'; __PACKAGE__->setup; sub default : Private { my ( $self, $c ) = @_; # Hello World $c->response->body( $c->welcome_message );} 1;