diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-17 21:41:31 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-17 21:41:31 -0600 |
commit | a0c5a7ce958bf1f619b95f7b5235b1fddd43e961 (patch) | |
tree | 9fb5cdb459dfba46ba8036b70954f91d76fd9d71 /lib/Narwhal/Component/Wiki.pm | |
parent | 224898fb1fd3046fcb82461610d5dd3ff0d0b01f (diff) | |
download | narwhal-a0c5a7ce958bf1f619b95f7b5235b1fddd43e961.tar.gz narwhal-a0c5a7ce958bf1f619b95f7b5235b1fddd43e961.zip |
actually, only edit needs the special http method thing
Diffstat (limited to 'lib/Narwhal/Component/Wiki.pm')
-rw-r--r-- | lib/Narwhal/Component/Wiki.pm | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/Narwhal/Component/Wiki.pm b/lib/Narwhal/Component/Wiki.pm new file mode 100644 index 0000000..985e1af --- /dev/null +++ b/lib/Narwhal/Component/Wiki.pm @@ -0,0 +1,27 @@ +package Narwhal::Component::Wiki; +use Moose; + +with 'Narwhal::Component::Role::Wiki'; + +sub page { + my $self = shift; + my ($req, $page) = @_; + + my $page_obj = $self->lookup("page:$page"); + return $req->new_response(404) + unless $page_obj; + + $self->render( + $req, + 'page.tt', + { + text => $page_obj->text, + page => $page, + }, + ); +} + +__PACKAGE__->meta->make_immutable; +no Moose; + +1; |