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;