Steve Bertrand <st...@ipv6canada.com> writes:
> Although I've expanded this out of a dispatch table and modified it to
> prevent wrap, it is extremely understandable, even without further context:
>
> my $v4glue = $dns->v4glue();
> my $v6glue = $dns->v6glue();
>
> $self->data({ field => 'v4glue', value => $self->date() }) if $v4glue;
> $self->data({ field => 'v6glue', value => $self->date() }) if $v6glue;
>
That may be true to experienced programmers.
No harm intended but:
To me its so confusing, I have no idea what it's doing.
I think maybe you guys have forgotten how code can look like ancient
hebrew very easily to lay folks.
I'm making an effort to make my example more readable... but I'm not
really sure what you are after. I'll spend more time on it and repost
later.
I did say right away in OP that whole top part, before the dispatch
table was a phony mock up just to get some input for the table.
All I'm after here is to see how to include a default action.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
