Parent Directory | Revision Log | Patch
revision 370 by dpavlin, Mon Nov 17 15:14:07 2008 UTC | revision 371 by dpavlin, Mon Nov 17 15:24:24 2008 UTC | |
---|---|---|
# | Line 11 has 'query' => ( | Line 11 has 'query' => ( |
11 | is => 'rw', | is => 'rw', |
12 | isa => 'Str', | isa => 'Str', |
13 | required => 1, | required => 1, |
14 | default => sub { | default => 'select * from sponge', |
my ($self) = @_; | ||
'select * from ' . $self->table; | ||
}, | ||
15 | ); | ); |
16 | ||
17 | has table => ( | has table => ( |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |