#!/usr/bin/perl -w
use strict;
use DBIx::VersionedSubs::Server;

=head1 USAGE

This script implements the barebone
server program that runs the whole
application C<My::App> from the database.

Start this program after having created the
database via C<create.pl>.

=cut

my $s = DBIx::VersionedSubs::Server->new({
    port      => 80,
    dsn       => 'dbi:SQLite:dbname=db/seed.sqlite',
    namespace => 'My::App',
    dispatch  => 'handler',
})->run();