Hi,
Akim Demaille <[EMAIL PROTECTED]> writes:
> Raja R Harinath <[EMAIL PROTECTED]> writes:
[snip]
> | Wouldn't this be more compact and readable without the loop?
> |
> | $lang_obj->ansi ($options{'ansi'}) if exists $options{'ansi'};
> | $lang_obj->autodep ($options{'autodep'}) if exists $options{'autodep'};
> | $lang_obj->compile ($options{'compile'}) if exists $options{'compile'};
> | # ...
> |
> | delete $options{$_} for (('ansi', 'autodep', 'compile', ...));
> | complain(...) if (keys %options);
>
> Oh yes, definitely! Thanks!
>
> But in fact, this code is made to be killed soon: recent versions of
> Class::Struct finally (aah!) provide a `new' which accepts a hash to
> initialize the object. We won't need this code, and probably we would
> need register_language either, just calls to `new'.
But, I thought the decision was to support Perl 5.005_03. The version
of Class::Struct with that doesn't seem to support initialization by
passing a hash to 'new'.
- Hari
--
Raja R Harinath ------------------------------ [EMAIL PROTECTED]
"When all else fails, read the instructions." -- Cahn's Axiom
"Our policy is, when in doubt, do the right thing." -- Roy L Ash
