[ABE.pm] A question

Ricardo SIGNES rjbs-perl-abe at lists.manxome.org
Mon May 7 19:46:37 PDT 2007


* "Faber J. Fedor" <faber at linuxnj.com> [2007-05-07T22:02:04]
> On 07/05/07 16:03 -0400, Ricardo SIGNES wrote:
> >   for my $id (@transactions) {
> >     my $actions_taken = 0;
> > 
> >     DEFAULT: for my $key (keys %default) {
> >       next DEFAULT if $default{ $key } eq 'NULL';
> >       $HASH{ $id }{ $key } = $default{ $key };
> >       $actions_taken++;
> >     }
> >   }
> > 
> > ...or something like that.
> 
> What's the point of the DEFAULT label?  You're breaking out of the same
> loop you're in.  Now, 

Because later, if you refactor, you will not have to look for what loops
controls have become mismatched.

-- 
rjbs


More information about the ABE-pm mailing list