Index: /lang/perl/Data-Model/trunk/lib/Data/Model/Schema/SQL.pm
===================================================================
--- /lang/perl/Data-Model/trunk/lib/Data/Model/Schema/SQL.pm (revision 30155)
+++ /lang/perl/Data-Model/trunk/lib/Data/Model/Schema/SQL.pm (revision 32399)
@@ -123,6 +123,7 @@
 sub as_table_attributes {
     my $self = shift;
-    return '' unless ref($self->{schema}->options->{create_sql_attributes}) eq 'HASH';
-    my($ret) = $self->call_method( 'get_table_attributes', $self->{schema}->options->{create_sql_attributes} );
+    my $hash = $self->{schema}->options->{create_sql_attributes};
+    $hash = +{} unless ref($hash) eq 'HASH';
+    my($ret) = $self->call_method( 'get_table_attributes', $hash );
     $ret ? " $ret" : '';
 }