diff options
Diffstat (limited to 'GroLUG/lib/GroLUG.pm')
| -rw-r--r-- | GroLUG/lib/GroLUG.pm | 60 |
1 files changed, 1 insertions, 59 deletions
diff --git a/GroLUG/lib/GroLUG.pm b/GroLUG/lib/GroLUG.pm index dca5de0..404fde1 100644 --- a/GroLUG/lib/GroLUG.pm +++ b/GroLUG/lib/GroLUG.pm @@ -3,45 +3,12 @@ package GroLUG; use strict; use warnings; -# -# Set flags and add plugins for the application -# -# -Debug: activates the debug mode for very useful log messages -# Static::Simple: will serve static files from the application's root -# directory -# -use Catalyst qw/-Debug ConfigLoader Static::Simple/; +use Catalyst qw/-Debug ConfigLoader Static::Simple DefaultEnd Session Session::Store::DBI Session::State::Cookie/; our $VERSION = '0.01'; -# -# Start the application -# __PACKAGE__->setup; -=head1 NAME - -GroLUG - Catalyst based application - -=head1 SYNOPSIS - - script/grolug_server.pl - -=head1 DESCRIPTION - -Catalyst based application. - -=head1 METHODS - -=cut - -=head2 default - -=cut - -# -# Output a friendly welcome message -# sub default : Private { my ( $self, $c ) = @_; @@ -49,29 +16,4 @@ sub default : Private { $c->response->body( $c->welcome_message ); } -# -# Uncomment and modify this end action after adding a View component -# -#=head2 end -# -#=cut -# -#sub end : Private { -# my ( $self, $c ) = @_; -# -# # Forward to View unless response body is already defined -# $c->forward( $c->view('') ) unless $c->response->body; -#} - -=head1 AUTHOR - -Catalyst developer - -=head1 LICENSE - -This library is free software, you can redistribute it and/or modify -it under the same terms as Perl itself. - -=cut - 1; |