--- trunk/lib/Frey/SQL.pm	2008/11/24 20:47:56	493
+++ trunk/lib/Frey/SQL.pm	2009/01/05 20:22:37	920
@@ -4,12 +4,11 @@
 
 with 'Frey::Web';
 
-use MooseX::Types::Moose qw(Str Int ArrayRef);
-use MooseX::Types::Structured qw/Dict/;
-
 use DBI;
 use Data::Dump qw/dump/;
 
+with 'Frey::Sponge'; # has sponge
+
 has 'query' => (
 	is => 'rw',
 	isa => 'Str',
@@ -26,15 +25,6 @@
 	documentation => 'Name of table to create from sponge data',
 );
 
-has 'sponge' => (
-	is => 'rw',
-	isa => Dict[
-		rows => ArrayRef[ArrayRef],
-		NAME => ArrayRef[Str],
-	],
-	required => 1,
-);
-
 sub as_data {
 	my ($self) = @_;