From a0834f3df097d5760ce0c0598473cdae08368bbf Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 8 Feb 2006 14:41:34 +0000
Subject: scheletro catalyst

git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@164 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 GroLUG/lib/GroLUG.pm | 77 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 GroLUG/lib/GroLUG.pm

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

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