--- trunk/lib/Frey/SQL.pm	2008/11/17 15:42:41	374
+++ trunk/lib/Frey/SQL.pm	2008/11/18 14:15:45	414
@@ -1,5 +1,6 @@
 package Frey::SQL;
 use Moose;
+extends 'Frey';
 
 use MooseX::Types::Moose qw(Str Int ArrayRef);
 use MooseX::Types::Structured qw/Dict/;
@@ -40,7 +41,7 @@
 	my $data = $self->sponge->{rows};
 	unshift @$data, $self->sponge->{NAME};
 
-	warn "# data = ",dump( $data );
+	warn "# data = ",dump( $data ) if $self->debug;
 
 	$dbh->func( $self->table, 'ARRAY', $data, 'ad_import' );