/[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 919 by dpavlin, Mon Nov 24 20:47:56 2008 UTC revision 920 by dpavlin, Mon Jan 5 20:22:37 2009 UTC
# Line 4  extends 'Frey'; Line 4  extends 'Frey';
4    
5  with 'Frey::Web';  with 'Frey::Web';
6    
 use MooseX::Types::Moose qw(Str Int ArrayRef);  
 use MooseX::Types::Structured qw/Dict/;  
   
7  use DBI;  use DBI;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10    with 'Frey::Sponge'; # has sponge
11    
12  has 'query' => (  has 'query' => (
13          is => 'rw',          is => 'rw',
14          isa => 'Str',          isa => 'Str',
# Line 26  has table => ( Line 25  has table => (
25          documentation => 'Name of table to create from sponge data',          documentation => 'Name of table to create from sponge data',
26  );  );
27    
 has 'sponge' => (  
         is => 'rw',  
         isa => Dict[  
                 rows => ArrayRef[ArrayRef],  
                 NAME => ArrayRef[Str],  
         ],  
         required => 1,  
 );  
   
28  sub as_data {  sub as_data {
29          my ($self) = @_;          my ($self) = @_;
30    
Legend:
Removed from v.919  
changed lines
  Added in v.920
  ViewVC Help
Powered by ViewVC 1.1.26