23 lines
439 B
Perl
23 lines
439 B
Perl
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;
|