diff options
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; |