X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FRelationship.pm;h=b0c10fae62116d48297e4b348c673492655434fd;hb=d4daee7b54e38e4b3d3d0a77759bddc1a4ede6e5;hp=880ffc2d453f19ff07c5c6edc43b777ecacd59a6;hpb=ddc0a6c89d212433eb5716b2aa963f63b1f348d1;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/Relationship.pm b/lib/DBIx/Class/CDBICompat/Relationship.pm index 880ffc2..b0c10fa 100644 --- a/lib/DBIx/Class/CDBICompat/Relationship.pm +++ b/lib/DBIx/Class/CDBICompat/Relationship.pm @@ -7,7 +7,7 @@ use Sub::Name (); =head1 NAME -DBIx::Class::CDBICompat::Relationship +DBIx::Class::CDBICompat::Relationship - Emulate the Class::DBI::Relationship object returned from meta_info() =head1 DESCRIPTION @@ -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; }