big kahuna
This commit is contained in:
@@ -2,19 +2,17 @@ package CW::Controller::Index;
|
||||
|
||||
use Moo;
|
||||
|
||||
with 'CW::Controller';
|
||||
extends 'CW::Controller';
|
||||
|
||||
sub index {
|
||||
my ( $self, $request, $response ) = @_;
|
||||
|
||||
$response->template(
|
||||
[
|
||||
head => [],
|
||||
body => [
|
||||
h1 => ["Foo Bar!"]
|
||||
]
|
||||
]
|
||||
);
|
||||
my $boards =
|
||||
$self->dbh->selectall_arrayref( q[SELECT * FROM boards ORDER BY id],
|
||||
{ Slice => {} } );
|
||||
|
||||
$response->template( 'Index',
|
||||
{ title => 'compiled.world | home', boards => $boards } );
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
Reference in New Issue
Block a user