in DBIx::Class::Row::insert
if(!$self->{_rel_in_storage}) {
#heavy code
}
#insert code
Example:
$obj1 = $rs->new({...});
$obj2 = $obj1->new_related('abc', {..});
$obj1->insert; #ok
#this cause 'heavy code' to execute because $self->{_rel_in_storage}
is undefined although $obj1 has been inserted in previous line
$obj2->insert;
I think _rel_in_storage should be updated when related object is
inserted or should be evaluated at insert
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
