File Coverage

blib/lib/Test/Fixture/DBI/Util/SQLite.pm

Criterion	Covered	Total	%
statement	6	22	27.2
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	30	30.0

package Test::Fixture::DBI::Util::SQLite;

use strict;
use warnings;

our $VERSION = '0.01';

sub make_database {
    my ( $class, $dbh ) = @_;

    my $rows = $dbh->selectall_arrayref(
q|SELECT name, type, tbl_name, sql FROM sqlite_master WHERE sql IS NOT NULL ORDER BY type|,
        +{ Slice => +{} },
    );

    my @database;

    ### retrieve table and view
    push( @database,
        map { +{ schema => $_->{name}, data => $_->{sql}, } }
        sort { $a->{type} cmp $b->{type} || $a->{name} cmp $b->{name} }
        grep { $_->{type} eq 'table' || $_->{type} eq 'view' } @$rows );

    ### retrive trigger
    push(
        @database,
        sort { $a->{trigger} cmp $b->{trigger} }
          map {
            +{
                trigger => $_->{name},
                refer   => $_->{tbl_name},
                data    => $_->{sql},
              }
          }
          grep { $_->{type} eq 'trigger' } @$rows
    );

    ### retrive index
    push(
        @database,
        sort { $a->{index} cmp $b->{index} }
          map {
            +{
                index => $_->{name},
                refer => $_->{tbl_name},
                data  => $_->{sql},
              }
          }
          grep { $_->{type} eq 'index' } @$rows
    );

    return \@database;
}

1;

__END__