Changeset 29485

Timestamp:

02/03/09 19:06:46 (4 years ago)

Author:

yappo

Message:

fixed to 'column_suger with utf8_column' dosent work bug

Location:

lang/perl/Data-Model/trunk

Files:

• lib/Data/Model/Schema/Properties.pm (modified) (1 diff)
• t/lib/Mock/Inflate.pm (modified) (2 diffs)

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

@@ -65 +65 @@
     my $self = shift;
     my($name) = @_;
+
+    my($suger_model, $suger_name) = split '\.', $name;
+    $name = $suger_name if $suger_name;
+
     $self->{utf8_columns}->{$name} = 1;
     $self->add_column(@_);

lang/perl/Data-Model/trunk/t/lib/Mock/Inflate.pm

@@ -5 +5 @@
 use Data::Model::Schema;
 use Data::Model::Schema::Inflate;
+
+column_sugar 'part_of_utf8.name' => 'char' => { size => 100 };
 
 install_model all_utf8 => schema {
@@ -26 +28 @@
         };
 
-    utf8_column name
-        => char => { size => 100 };
+    utf8_column 'part_of_utf8.name';
 
     column nickname