X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSourceProxy%2FTable.pm;h=4c0807cca73cb31081ab19fc9427ffcb5b1e919f;hb=f064a2ab;hp=a1a0ce3a8e2bc38a60b9c0d58aa5d2c47a35b8fb;hpb=0ff3368690783358903b3689a1a96ef21271f825;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/ResultSourceProxy/Table.pm b/lib/DBIx/Class/ResultSourceProxy/Table.pm index a1a0ce3..4c0807c 100644 --- a/lib/DBIx/Class/ResultSourceProxy/Table.pm +++ b/lib/DBIx/Class/ResultSourceProxy/Table.pm @@ -17,7 +17,7 @@ __PACKAGE__->mk_group_accessors( inherited => 'table_alias' ); sub _init_result_source_instance { my $class = shift; - $class->mk_group_accessors( inherited => 'result_source_instance' ) + $class->mk_group_accessors( inherited => [ result_source_instance => '_result_source' ] ) unless $class->can('result_source_instance'); # might be pre-made for us courtesy of DBIC::DB::result_source_instance() @@ -109,7 +109,7 @@ sub table { }); } - $class->mk_group_accessors(inherited => 'result_source_instance') + $class->mk_group_accessors( inherited => [ result_source_instance => '_result_source' ] ) unless $class->can('result_source_instance'); $class->result_source_instance($table)->name;