Mark Hedges wrote:
> 
> On Fri, 7 Apr 2006, Mark Hedges wrote:
> 
>> -    $_->update for $self->$rel;
>> +    $_->update for grep {$_} $self->$rel;
> 
> 
> Sorry, this is more efficient:
> 
>  $_->update for grep { defined } $self->$rel;

Or even

grep defined, $self->$rel;

which is what just went into trunk :)

-- 
      Matt S Trout       Offering custom development, consultancy and support
   Technical Director    contracts for Catalyst, DBIx::Class and BAST. Contact
Shadowcat Systems Ltd.  mst (at) shadowcatsystems.co.uk for more information

+ Help us build a better perl ORM: http://dbix-class.shadowcatsystems.co.uk/ +

_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/

Reply via email to