--- trunk/lib/Frey/SQL.pm	2008/11/17 15:42:41	374
+++ trunk/lib/Frey/SQL.pm	2008/11/19 15:28:23	455
@@ -1,5 +1,8 @@
 package Frey::SQL;
 use Moose;
+extends 'Frey';
+
+with 'Frey::Web';
 
 use MooseX::Types::Moose qw(Str Int ArrayRef);
 use MooseX::Types::Structured qw/Dict/;
@@ -32,15 +35,15 @@
 	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 );
+	warn "# data = ",dump( $data ) if $self->debug;
 
 	$dbh->func( $self->table, 'ARRAY', $data, 'ad_import' );