Parent Directory | Revision Log | Patch
revision 455 by dpavlin, Wed Nov 19 15:28:23 2008 UTC | revision 493 by dpavlin, Mon Nov 24 20:47:56 2008 UTC | |
---|---|---|
# | Line 40 sub as_data { | Line 40 sub as_data { |
40 | ||
41 | my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):'); | my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):'); |
42 | ||
43 | my $data = $self->as_sponge->{rows}; | my $data = $self->sponge->{rows}; |
44 | unshift @$data, $self->as_sponge->{NAME}; | unshift @$data, $self->sponge->{NAME}; |
45 | ||
46 | warn "# data = ",dump( $data ) if $self->debug; | warn "# data = ",dump( $data ) if $self->debug; |
47 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |