view release on metacpan or  search on metacpan

lib/Ukigumo/Server.pm  view on Meta::CPAN

    };
}

sub dbh {
    my $self = shift;

    $self->{dbh} ||= do {
        my $conf = $self->config->{DBI} or die "Missing configuration for DBI";
        $conf->[3]->{RaiseError}        = 1;
        $conf->[3]->{sqlite_unicode}    = 1 if $self->dbdriver eq 'sqlite';
        $conf->[3]->{mysql_enable_utf8} = 1 if $self->dbdriver eq 'mysql';
        DBI->connect(@$conf) or die $DBI::errstr;
    };
}

sub db {
    my $self = shift;
    $self->{db} ||= Ukigumo::Server::DB->new(dbh => $self->dbh);
}

sub dbdriver {

t/07-mysqld.t  view on Meta::CPAN

use Ukigumo::Server;

my $mysqld = Test::mysqld->new(
    my_cnf => {
        'skip-networking' => '', # no TCP socket
    }
) or plan skip_all => $Test::mysqld::errstr;

Ukigumo::Server->config({
    'DBI' => [$mysqld->dsn, '', '', {
        mysql_enable_utf8 => 1,
    }],
});

my $c = Ukigumo::Server->bootstrap();
$c->setup_schema;

my $report_id = Ukigumo::Server::Command::Report->insert(
    project => 'Foo',
    branch => 'bar',
    status => 2,