X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FRelationship.pm;h=b0c10fae62116d48297e4b348c673492655434fd;hb=a0c96f2461b2a46b242b8432deb0ad88880f73cd;hp=5d71924d752a6983ebc9b737d7df915cc93d6db1;hpb=b24d86a1fbeb89083bc2eeeeb286d590ffea702a;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/CDBICompat/Relationship.pm b/lib/DBIx/Class/CDBICompat/Relationship.pm index 5d71924..b0c10fa 100644 --- a/lib/DBIx/Class/CDBICompat/Relationship.pm +++ b/lib/DBIx/Class/CDBICompat/Relationship.pm @@ -25,7 +25,7 @@ my %method2key = ( sub new { my($class, $args) = @_; - + return bless $args, $class; } @@ -34,7 +34,7 @@ for my $method (keys %method2key) { my $code = sub { $_[0]->{$key}; }; - + no strict 'refs'; *{$method} = Sub::Name::subname $method, $code; }