File Coverage

blib/lib/Geoffrey/Converter/SQLite/Tables.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	12	12	100.0
pod	6	6	100.0
total	45	45	100.0

package Geoffrey::Converter::SQLite::Tables;

use utf8;
use 5.016;
use strict;
use Readonly;
use warnings;

$Geoffrey::Converter::SQLite::Tables::VERSION = '0.000204';

use parent 'Geoffrey::Role::ConverterType';

sub add { return q~CREATE TABLE {0} ( {1} )~; }

sub drop { return q~DROP TABLE {0}~; }

sub alter { return q~ALTER TABLE {0}~; }

sub add_column { return $_[0]->alter . q~ ADD COLUMN {1}~; }

sub list {
    my ( $self, $schema ) = @_;
    require Geoffrey::Utils;
    return
        q~SELECT name FROM ~
      . Geoffrey::Utils::add_schema($schema)
      . q~sqlite_master WHERE type='table'~;
}

sub s_list_columns {
    my ( $self, $schema ) = @_;
    require Geoffrey::Utils;
    return
        q~SELECT sql FROM ~
      . Geoffrey::Utils::add_schema($schema)
      . q~sqlite_master WHERE type='table' AND name=?~;
}

1;    # End of Geoffrey::Converter::SQLite::Tables

__END__