package MyApp::Controller::Database;

use strict;
use warnings;
use parent 'Catalyst::Controller';

=head1 NAME

MyApp::Controller::Database - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut


=head2 index

=cut

sub list_messages :Path :Args(0) {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'list_messages.tt';
    $c->stash->{messages} = $c->model('TestDatabase::test');
}


=head1 AUTHOR

A clever guy

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;