Parent Directory | Revision Log | Patch
revision 414 by dpavlin, Tue Nov 18 14:15:45 2008 UTC | revision 493 by dpavlin, Mon Nov 24 20:47:56 2008 UTC | |
---|---|---|
# | Line 2 package Frey::SQL; | Line 2 package Frey::SQL; |
2 | use Moose; | use Moose; |
3 | extends 'Frey'; | extends 'Frey'; |
4 | ||
5 | with 'Frey::Web'; | |
6 | ||
7 | use MooseX::Types::Moose qw(Str Int ArrayRef); | use MooseX::Types::Moose qw(Str Int ArrayRef); |
8 | use MooseX::Types::Structured qw/Dict/; | use MooseX::Types::Structured qw/Dict/; |
9 | ||
# | Line 33 has 'sponge' => ( | Line 35 has 'sponge' => ( |
35 | required => 1, | required => 1, |
36 | ); | ); |
37 | ||
38 | sub data { | sub as_data { |
39 | my ($self) = @_; | my ($self) = @_; |
40 | ||
41 | my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):'); | my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |