21 lines
276 B
Perl
21 lines
276 B
Perl
package CW::Controller::Index;
|
|
|
|
use Moo;
|
|
|
|
with 'CW::Controller';
|
|
|
|
sub index {
|
|
my ( $self, $request, $response ) = @_;
|
|
|
|
$response->template(
|
|
[
|
|
head => [],
|
|
body => [
|
|
h1 => ["Foo Bar!"]
|
|
]
|
|
]
|
|
);
|
|
}
|
|
|
|
1;
|