catalyst skeleton

2 files changed, 103 insertions, 11 deletions

diff --git a/lib/PAUSE/OpenID.pm b/lib/PAUSE/OpenID.pm
index 59f4525..1faf82b 100644
--- a/lib/PAUSE/OpenID.pm
+++ b/lib/PAUSE/OpenID.pm
@@ -2,33 +2,63 @@ package PAUSE::OpenID;
 
 use strict;
 use warnings;
-use 5.010;
-use version; our $VERSION = version->new('0.01');
 
-1;
-__END__
+use Catalyst::Runtime '5.70';
+
+# Set flags and add plugins for the application
+#
+#         -Debug: activates the debug mode for very useful log messages
+#   ConfigLoader: will load the configuration from a Config::General file in the
+#                 application's home directory
+# Static::Simple: will serve static files from the application's root 
+#                 directory
+
+use parent qw/Catalyst/;
+use Catalyst qw/-Debug
+                ConfigLoader
+                Static::Simple/;
+our $VERSION = '0.01';
+
+# Configure the application. 
+#
+# Note that settings in pause_openid.conf (or other external
+# configuration file that you set up manually) take precedence
+# over this when using ConfigLoader. Thus configuration
+# details given here can function as a default configuration,
+# with a external configuration file acting as an override for
+# local deployment.
+
+__PACKAGE__->config( name => 'PAUSE::OpenID' );
+
+# Start the application
+__PACKAGE__->setup();
+
 
 =head1 NAME
 
-PAUSE::OpenID -
+PAUSE::OpenID - Catalyst based application
 
 =head1 SYNOPSIS
 
-  use PAUSE::OpenID;
+    script/pause_openid_server.pl
 
 =head1 DESCRIPTION
 
-PAUSE::OpenID is
+[enter your description here]
 
-=head1 AUTHOR
+=head1 SEE ALSO
 
-Thomas Klausner E<lt>domm {at} cpan.orgE<gt>
+L<PAUSE::OpenID::Controller::Root>, L<Catalyst>
 
-=head1 SEE ALSO
+=head1 AUTHOR
+
+Thomas Klausner,,,
 
 =head1 LICENSE
 
-This library is free software; you can redistribute it and/or modify
+This library is free software, you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
 =cut
+
+1;
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm
new file mode 100644
index 0000000..915801c
--- /dev/null
+++ b/lib/PAUSE/OpenID/Controller/Root.pm
@@ -0,0 +1,62 @@
+package PAUSE::OpenID::Controller::Root;
+
+use strict;
+use warnings;
+use parent 'Catalyst::Controller';
+
+#
+# Sets the actions in this controller to be registered with no prefix
+# so they function identically to actions created in MyApp.pm
+#
+__PACKAGE__->config->{namespace} = '';
+
+=head1 NAME
+
+PAUSE::OpenID::Controller::Root - Root Controller for PAUSE::OpenID
+
+=head1 DESCRIPTION
+
+[enter your description here]
+
+=head1 METHODS
+
+=cut
+
+=head2 index
+
+=cut
+
+sub index :Path :Args(0) {
+    my ( $self, $c ) = @_;
+
+    # Hello World
+    $c->response->body( $c->welcome_message );
+}
+
+sub default :Path {
+    my ( $self, $c ) = @_;
+    $c->response->body( 'Page not found' );
+    $c->response->status(404);
+    
+}
+
+=head2 end
+
+Attempt to render a view, if needed.
+
+=cut 
+
+sub end : ActionClass('RenderView') {}
+
+=head1 AUTHOR
+
+Thomas Klausner,,,
+
+=head1 LICENSE
+
+This library is free software, you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;