Hi, On Wed, Mar 10, 2010 at 2:37 PM, Bill Moseley <[email protected]> wrote: >> On Tue, Mar 9, 2010 at 11:23 PM, Pedro Melo <[email protected]> wrote: >> for ( qw/ cascade_delete cascade_copy / ) { >> # Any user-defined value wins >> $options->{$_} = 0 unless exists $options->{$_}; >> } > > I figured I only needed to set it to zero if $options->{$_} was true, but I > guess it's supposed to be zero, not just false.
The reason I coded it this way was to allow a specific relation to set cascade_delete => 1. My code defaults to cascade_delete => 0 but allows cascade_delete => 1, but your version seems to force cascade_delete => 0 in all cases. So it really depends on what you actually want. Bye, -- Pedro Melo http://www.simplicidade.org/ xmpp:[email protected] mailto:[email protected] _______________________________________________ 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]
