[SP-pm] Golf, mais complicado...

[Igor Sutton Lopes]

Oi denovo,

On May 9, 2007, at 7:09 AM, Luis Motta Campos wrote:

>    Gente, eu estou tentando receber dois parâmetros via name-value
> syntax, transformar isso num hash e retornar apenas o que interessa.
> Acabei escrevendo isso:
>
>    package Class;
>    sub new {
>        my $class = shift;
>        ( $driver, $options ) = do{ my %args = @_; @args{qw/Driver
> DriverOptions/}; };
>    }
>
>    espero que o programador chame new() assim:
>
>    package main;
>    Class->new( Driver => $driver, DriverOptions => $options );
>
>    Alguém consegue encurtar a linha com o do{}, sem perder clareza?

sub new {
     my ($class, %params) = @_;
     my ($driver, $options) = @params{qw(Driver DriverOptions)};
}

Acho que assim é melhor :-)

--
Igor Sutton
igor.sutton em gmail.com



-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070509/fff25260/attachment.html 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : PGP.sig
Tipo  : application/pgp-signature
Tam   : 186 bytes
Descr.: This is a digitally signed message part
Url   : http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070509/fff25260/attachment.bin