[Bast-commits] r5221 - in DBIx-Class-InflateColumn-FS/1.000/trunk: . lib/DBIx/Class/InflateColumn

[semifor at dev.catalyst.perl.org]

Author: semifor
Date: 2008-12-02 19:36:37 +0000 (Tue, 02 Dec 2008)
New Revision: 5221

Modified:
   DBIx-Class-InflateColumn-FS/1.000/trunk/Changes
   DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm
Log:
Use ->result_source->column_info (mst)

Modified: DBIx-Class-InflateColumn-FS/1.000/trunk/Changes
===================================================================
--- DBIx-Class-InflateColumn-FS/1.000/trunk/Changes	2008-12-02 19:36:25 UTC (rev 5220)
+++ DBIx-Class-InflateColumn-FS/1.000/trunk/Changes	2008-12-02 19:36:37 UTC (rev 5221)
@@ -1,7 +1,8 @@
-0.01000
+0.01001 2008-12-02 11:32:00
         - added SUPPORT section to POD
+        - use ->result_source->column_info (mst)
 
-0.00100 2008-10-07 13:18:00
+0.01000 2008-10-07 13:18:00
 	    - release
 
 0.00000_04 2008-10-06 16:10:00

Modified: DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm
===================================================================
--- DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm	2008-12-02 19:36:25 UTC (rev 5220)
+++ DBIx-Class-InflateColumn-FS/1.000/trunk/lib/DBIx/Class/InflateColumn/FS.pm	2008-12-02 19:36:37 UTC (rev 5221)
@@ -8,7 +8,7 @@
 use File::Copy;
 use Path::Class;
 
-our $VERSION = '0.01000';
+our $VERSION = '0.01001';
 
 =head1 NAME
 
@@ -85,7 +85,7 @@
 sub _fs_column_storage {
     my ( $self, $column ) = @_;
 
-    my $column_info = $self->column_info($column);
+    my $column_info = $self->result_source->column_info($column);
     $self->throw_exception("$column is not an fs_column")
         unless $column_info->{is_fs_column};
 
@@ -126,7 +126,7 @@
     my ( $self, @rest ) = @_;
 
     for ( $self->columns ) {
-        if ( $self->column_info($_)->{is_fs_column} ) {
+        if ( $self->result_source->column_info($_)->{is_fs_column} ) {
             $self->$_->remove;
         }
     }
@@ -147,9 +147,10 @@
 
     # cache existing fs_colums before update so we can delete storge
     # afterwards if necessary
+    my $s = $self->result_source;
     my %fs_column =
         map  { ($_, $self->$_) }
-        grep { $self->column_info($_)->{is_fs_column} }
+        grep { $s->column_info($_)->{is_fs_column} }
         keys %changed;
 
     # attempt super update, first, so it can throw on DB errors
@@ -157,7 +158,7 @@
     $self->next::method($upd);
 
     while ( my ($column, $value) = each %changed ) {
-        if ( $self->column_info($column)->{is_fs_column} ) {
+        if ( $s->column_info($column)->{is_fs_column} ) {
             # remove the storage if the column was set to NULL
             $fs_column{$column}->remove if !defined $value;