stuff

lib/CW/Controller.pm

@@ -2,6 +2,21 @@ package CW::Controller;
 
 use Moo;
 
-has dbh => ( is => 'ro', required => 1 );
+use Types::Standard qw(HashRef);
+
+has dbh      => ( is => 'ro', required => 1 );
+has request  => ( is => 'ro', required => 1 );
+has response => ( is => 'ro', required => 1 );
+has params => (
+    is      => 'ro',
+    isa     => HashRef,
+    default => sub { return +{} }
+);
+
+sub evac {
+    my ( $self, $code ) = @_;
+    $self->response->status($code);
+    $self->response->template("Error::$code");
+}
 
 1;