diff options
author | Michael Kröll <pepl@cpan.org> | 2008-12-01 21:44:18 +0100 |
---|---|---|
committer | Michael Kröll <pepl@cpan.org> | 2008-12-01 21:44:18 +0100 |
commit | bcad71d5980251cd9337afdedeca1aaf3d2461ca (patch) | |
tree | 3f4abd5a22f2b4d7f72f4afc81fec9498c76e633 /lib/PAUSE/OpenID/Controller/Root.pm | |
parent | Merge branch 'master' of git@git.useperl.at:PAUSE-OpenID (diff) | |
download | Simple-OpenID-bcad71d5980251cd9337afdedeca1aaf3d2461ca.tar.gz Simple-OpenID-bcad71d5980251cd9337afdedeca1aaf3d2461ca.tar.bz2 Simple-OpenID-bcad71d5980251cd9337afdedeca1aaf3d2461ca.zip |
Forgotten to add with last commit
Diffstat (limited to 'lib/PAUSE/OpenID/Controller/Root.pm')
-rw-r--r-- | lib/PAUSE/OpenID/Controller/Root.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 915801c..c37b2c2 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -29,8 +29,12 @@ PAUSE::OpenID::Controller::Root - Root Controller for PAUSE::OpenID sub index :Path :Args(0) { my ( $self, $c ) = @_; +$c->stash->{xml} =<<XML; +<document/> +XML + # Hello World - $c->response->body( $c->welcome_message ); + $c->forward('PAUSE::OpenID::View::XSLT'); } sub default :Path { |