--- trunk/lib/Frey/SQL.pm	2008/11/19 14:39:10	454
+++ trunk/lib/Frey/SQL.pm	2008/11/19 15:28:23	455
@@ -2,6 +2,8 @@
 use Moose;
 extends 'Frey';
 
+with 'Frey::Web';
+
 use MooseX::Types::Moose qw(Str Int ArrayRef);
 use MooseX::Types::Structured qw/Dict/;
 
@@ -33,13 +35,13 @@
 	required => 1,
 );
 
-sub data {
+sub as_data {
 	my ($self) = @_;
 
 	my $dbh=DBI->connect('dbi:AnyData(RaiseError=>1):');
 
-	my $data = $self->sponge->{rows};
-	unshift @$data, $self->sponge->{NAME};
+	my $data = $self->as_sponge->{rows};
+	unshift @$data, $self->as_sponge->{NAME};
 
 	warn "# data = ",dump( $data ) if $self->debug;