package Tropy::C::Entry; use strict; use base 'Catalyst::Base'; sub default : Private { my ( $self, $c ) = @_; $c->stash->{template} = 'entry.tt'; $c->forward('Tropy::V::TT'); } sub entry : Regex('^entry/(\w+)$') { my ( $self, $c ) = @_; $c->stash->{entry} = Tropy::M::CDBI::Entry->retrieve($c->req->snippets->[0]); $c->forward('default'); } 1;