File Coverage

blib/lib/SmokeRunner/Multi/DBI.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	38	39	97.4

package SmokeRunner::Multi::DBI;
our $AUTHORITY = 'cpan:YANICK';
#ABSTRACT: DBI helpers for SmokeRunner::Multi
$SmokeRunner::Multi::DBI::VERSION = '0.20';
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__