From b2bf6e98e29ba55c41d134a1e640bdaa560d1152 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 8 Feb 2006 18:52:19 +0000
Subject: funge il modello... ca**o

git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@170 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 GroLUG/lib/GroLUG.pm | 60 +---------------------------------------------------
 1 file changed, 1 insertion(+), 59 deletions(-)

(limited to 'GroLUG/lib/GroLUG.pm')

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;
-- 
cgit v1.2.3