X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSet%2FWithMetaData.pm;fp=lib%2FDBIx%2FClass%2FResultSet%2FWithMetaData.pm;h=feff80936dc8b9dca28ccc77af18fa40964029aa;hb=50e9dd04209bfa8fb4ce6a4f8d10c315ba0a9dfd;hp=15cc209ac2154c0249373ebf24db8bbd146447dd;hpb=ba902254d447fe711a45421383c1b56d587995f4;p=dbsrgits%2FDBIx-Class-ResultSet-WithMetaData.git

diff --git a/lib/DBIx/Class/ResultSet/WithMetaData.pm b/lib/DBIx/Class/ResultSet/WithMetaData.pm
index 15cc209..feff809 100644
--- a/lib/DBIx/Class/ResultSet/WithMetaData.pm
+++ b/lib/DBIx/Class/ResultSet/WithMetaData.pm
@@ -54,12 +54,11 @@ DBIx::Class::ResultSet::WithMetaData
   extends 'DBIx::Class::ResultSet::WithMetaData;
 
   method with_substr () {
-    $self->build_metadata( modifier => sub () {
-      my $row = shift;
-      $row->{substr} = substr($row->{name}, 0, 3);
-      return $row;
-    });
-    return $self;
+    return $self->_with_meta_key( 
+      substr => sub {
+        return substr(shift->{name}, 0, 3);
+      }
+    );
   }
 
   ...