File Coverage

blib/lib/SmokeRunner/Multi/DBI.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	40	41	97.5

package SmokeRunner::Multi::DBI;
BEGIN {
  $SmokeRunner::Multi::DBI::AUTHORITY = 'cpan:YANICK';
}
{
  $SmokeRunner::Multi::DBI::VERSION = '0.19';
}
#ABSTRACT: DBI helpers for SmokeRunner::Multi

use strict;
use warnings;

use DBD::SQLite;
use DBI;
use File::Spec;
use SmokeRunner::Multi::Config;


{
    my $dbh;
    sub handle
    {
        return $dbh if $dbh;

        my $config = SmokeRunner::Multi::Config->instance();

        my $db_file = File::Spec->catfile( $config->root_dir(),
            'smokerunner.sqlite' );

        $dbh = DBI->connect( "dbi:SQLite:dbname=$db_file", '', '',
                             { RaiseError => 1 } );

        _create_database($dbh)
            unless -s $db_file;

        return $dbh;
    }
}

{
    my $ddl = <<'EOF';
CREATE TABLE TestSet (
   name            TEXT     NOT NULL PRIMARY KEY,
   last_run_time   INTEGER  NOT NULL DEFAULT 0,
   is_prioritized  INTEGER  NOT NULL DEFAULT 0
);
EOF

    sub _create_database
    {
        my $dbh = shift;

        $dbh->do($ddl);
    }
}


1;

__END__