/[Frey]/trunk/lib/Frey/SQL.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/SQL.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 373 by dpavlin, Mon Nov 17 15:24:24 2008 UTC revision 374 by dpavlin, Mon Nov 17 15:42:41 2008 UTC
# Line 12  has 'query' => ( Line 12  has 'query' => (
12          isa => 'Str',          isa => 'Str',
13          required => 1,          required => 1,
14          default => 'select * from sponge',          default => 'select * from sponge',
15            documentation => 'SQL query to filter data',
16  );  );
17    
18  has table => (  has table => (
# Line 19  has table => ( Line 20  has table => (
20          isa => 'Str',          isa => 'Str',
21          required => 1,          required => 1,
22          default => 'sponge',          default => 'sponge',
23            documentation => 'Name of table to create from sponge data',
24  );  );
25    
26  has 'sponge' => (  has 'sponge' => (
# Line 35  sub data { Line 37  sub data {
37    
38          my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):');          my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):');
39    
   
   
40          my $data = $self->sponge->{rows};          my $data = $self->sponge->{rows};
41          unshift @$data, $self->sponge->{NAME};          unshift @$data, $self->sponge->{NAME};
42    
Legend:
Removed from v.373  
changed lines
  Added in v.374
  ViewVC Help
Powered by ViewVC 1.1.26