File Coverage

blib/lib/DBIx/SimpleMigration/Client/SQLite.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch	1	2	50.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	10	11	90.9

package DBIx::SimpleMigration::Client::SQLite;

use parent qw(DBIx::SimpleMigration::Client);

our $VERSION = '1.0.1';

sub _migrations_table_exists {
  my ($self) = @_;

  my $query = "
    SELECT EXISTS (
      SELECT NULL
      FROM sqlite_master
      WHERE type = 'table' AND name = ?
    )
  ";

  my $row = $self->{dbh}->selectrow_hashref($query, {}, $self->{_options}->{migrations_table}) or die 'Database error: ' . $self->{dbh}->errstr;

  return $row->{exists};
}

1;