diff options
author | dakkar <dakkar@luxion> | 2006-02-08 18:52:19 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2006-02-08 18:52:19 +0000 |
commit | b2bf6e98e29ba55c41d134a1e640bdaa560d1152 (patch) | |
tree | 55a89ad794818e490c49b18be8e4b4006cb935a3 /GroLUG/lib/GroLUG.pm | |
parent | il test funziona, aggiunta colonna 'attivo' (diff) | |
download | IscrittiGroLUG-b2bf6e98e29ba55c41d134a1e640bdaa560d1152.tar.gz IscrittiGroLUG-b2bf6e98e29ba55c41d134a1e640bdaa560d1152.tar.bz2 IscrittiGroLUG-b2bf6e98e29ba55c41d134a1e640bdaa560d1152.zip |
funge il modello... ca**o
git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@170 fcb26f47-9200-0410-b104-b98ab5b095f3
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; |