Re: [Cascavel-pm] Formatter padrão para o DateTime

[Flavio S. Glock]

Em 13/10/05, Luis Campos de Carvalho<monsieur_champs em yahoo.com.br> escreveu:
>   Achei que o "isso" que faltava era um "set_formatter()" da vida.

"isso" que faltava era o set_formatter() usado como class method :)

Esta é uma solução mais elegante, que coloca a factory em uma variável
léxica, em vez de poluir o namespace:

 use DateTime;
 use DateTime::Format::Pg;

 my $pg_date = sub {
     DateTime->new( formatter => 'DateTime::Format::Pg', @_ )
 };
 my $d2 = $pg_date->( year=>1999 );
 print $d2;

- Flavio S. Glock