File Coverage

blib/lib/Pinwheel/Database/Sqlite.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	35	39	89.7

package Pinwheel::Database::Sqlite;

use strict;
use warnings;

use Pinwheel::Database::Base;

our @ISA = qw(Pinwheel::Database::Base);


sub new
{
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    bless $self, $class; # Re-bless into this class
    return $self;
}

sub connect
{
    my $self = shift;
    $self->SUPER::connect(@_);
    $self->{dbhostname} = 'localhost';
}

sub describe
{
    my ($self ,$table) = @_;
    my ($sth, $rows, %fields);
    $sth = $self->prepare("PRAGMA table_info (`$table`)");
    $sth->execute();
    $rows = $sth->fetchall_arrayref([1, 2, 3]);
    map {
        $fields{$_->[0]} = { type => lc($_->[1]), null => ($_->[2] ? 0 : 1) }
    } @$rows;
    return \%fields;
}

sub tables
{
    my $self = shift;
    return $self->selectcol_array('SELECT tbl_name FROM sqlite_master WHERE type="table"');
}

1;

__DATA__