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 ) = @_; $c->stash->{xml} =< XML # Hello World $c->forward('PAUSE::OpenID::View::XSLT'); } 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;