Amon2 BBS example (http://amon.64p.org/bbs_tutorial.html) Teng schema

gistfile1.pl

package MyApp::DB::Schema;
use strict;
use warnings;
use utf8;

use Teng::Schema::Declare;

base_row_class 'MyApp::DB::Row';

table {
    name 'member';
    pk 'id';
    columns qw(id name);
};

table {
    name 'sessions';
    pk 'id';
    columns qw(id session_data);
};

table {
    name 'entry';
    pk 'entry_id';
    columns qw(entry_id body);
};

1;