diff options
author | dakkar <dakkar@luxion> | 2006-02-08 14:41:34 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2006-02-08 14:41:34 +0000 |
commit | a0834f3df097d5760ce0c0598473cdae08368bbf (patch) | |
tree | 71b67613cad8368d9bd2068fd849d4c7ce2c3fbf /GroLUG/lib/GroLUG.pm | |
parent | webapp per gestioni iscritti GroLUG (diff) | |
download | IscrittiGroLUG-a0834f3df097d5760ce0c0598473cdae08368bbf.tar.gz IscrittiGroLUG-a0834f3df097d5760ce0c0598473cdae08368bbf.tar.bz2 IscrittiGroLUG-a0834f3df097d5760ce0c0598473cdae08368bbf.zip |
scheletro catalyst
git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@164 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 'GroLUG/lib/GroLUG.pm')
-rw-r--r-- | GroLUG/lib/GroLUG.pm | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/GroLUG/lib/GroLUG.pm b/GroLUG/lib/GroLUG.pm new file mode 100644 index 0000000..dca5de0 --- /dev/null +++ b/GroLUG/lib/GroLUG.pm @@ -0,0 +1,77 @@ +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/; + +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 ) = @_; + + # Hello World + $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; |