lib/Frey/SQL.pm

package Frey::SQL;
use Moose;

use MooseX::Types::Moose qw(Str Int ArrayRef);
use MooseX::Types::Structured qw/Dict/;

use DBI;
use Data::Dump qw/dump/;

has 'query' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'select * from sponge',
        documentation => 'SQL query to filter data',
);

has table => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'sponge',
        documentation => 'Name of table to create from sponge data',
);

has 'sponge' => (
        is => 'rw',
        isa => Dict[
                rows => ArrayRef[ArrayRef],
                NAME => ArrayRef[Str],
        ],
        required => 1,
);

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

        my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):');

        my $data = $self->sponge->{rows};
        unshift @$data, $self->sponge->{NAME};

        warn "# data = ",dump( $data );

        $dbh->func( $self->table, 'ARRAY', $data, 'ad_import' );

        return $dbh->selectall_arrayref( $self->query );
}

1;
1	package Frey::SQL;
2	use Moose;
3
4	use MooseX::Types::Moose qw(Str Int ArrayRef);
5	use MooseX::Types::Structured qw/Dict/;
6
7	use DBI;
8	use Data::Dump qw/dump/;
9
10	has 'query' => (
11	is => 'rw',
12	isa => 'Str',
13	required => 1,
14	default => 'select * from sponge',
15	documentation => 'SQL query to filter data',
16	);
17
18	has table => (
19	is => 'rw',
20	isa => 'Str',
21	required => 1,
22	default => 'sponge',
23	documentation => 'Name of table to create from sponge data',
24	);
25
26	has 'sponge' => (
27	is => 'rw',
28	isa => Dict[
29	rows => ArrayRef[ArrayRef],
30	NAME => ArrayRef[Str],
31	],
32	required => 1,
33	);
34
35	sub data {
36	my ($self) = @_;
37
38	my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):');
39
40	my $data = $self->sponge->{rows};
41	unshift @$data, $self->sponge->{NAME};
42
43	warn "# data = ",dump( $data );
44
45	$dbh->func( $self->table, 'ARRAY', $data, 'ad_import' );
46
47	return $dbh->selectall_arrayref( $self->query );
48	}
49
50	1;