19 lines
353 B
Perl
19 lines
353 B
Perl
package CW::Controller::Index;
|
|
|
|
use Moo;
|
|
|
|
extends 'CW::Controller';
|
|
|
|
sub index {
|
|
my ( $self, $request, $response ) = @_;
|
|
|
|
my $boards =
|
|
$self->dbh->selectall_arrayref( q[SELECT * FROM boards ORDER BY id],
|
|
{ Slice => {} } );
|
|
|
|
$response->template( 'Index',
|
|
{ title => 'compiled.world | home', boards => $boards } );
|
|
}
|
|
|
|
1;
|