lib/Frey/SQL.pm

package Frey::SQL;
use Moose;
extends 'Frey';

with 'Frey::Web';

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 as_data {
        my ($self) = @_;

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

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

        warn "# data = ",dump( $data ) if $self->debug;

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

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

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