view release on metacpan or  search on metacpan

examples/lib/DB.pm  view on Meta::CPAN

package DB;

use strict;
use warnings;
use base qw( DBIx::TNDBO );

sub credentials {
    my ($database) = @_;
    return {
        user   => 'dylan',
        pass   => 'nalyd',
        driver => 'mysql',
        dbname => 'language',
        host   => 'localhost',
        port   => 3306,
    };
}

1;