Changeset 32399

Timestamp:

04/14/09 19:28:05 (4 years ago)

Author:

yappo

Message:

certainly get_table_attributes hook works

Files:

• lang/perl/Data-Model/trunk/lib/Data/Model/Schema/SQL.pm (modified) (1 diff)

lang/perl/Data-Model/trunk/lib/Data/Model/Schema/SQL.pm

@@ -123 +123 @@
 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" : '';
 }