diff options
Diffstat (limited to 'GroLUG/lib')
-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; |