pass _parent to collections

diff --git a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
index e986785..67747cf 100644 (file)
--- a/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
+++ b/lib/Reaction/InterfaceModel/Reflector/DBIC.pm
@@ -333,7 +333,11 @@ class DBIC, which {
        domain_model   => $dm_name,
        orig_attr_name => $source,
        default        => sub {
-         $collection->new(_source_resultset => shift->$dm_name->resultset($source));
+         my $self = $_[0];
+         return $collection->new(
+           _source_resultset => $self->$dm_name->resultset($source),
+           _parent => $self,
+         );
        },
       );