package CW::Controller;

use Moo;

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;