[Cascavel-pm] Databases, SQL, e operadores "leigos" [Was: Como verificar se um registro já...]
Luis Motta Campos
luismottacampos em yahoo.co.uk
Sexta Outubro 27 03:10:55 PDT 2006
Luis Motta Campos wrote:
> __PERL__
> #!perl # Emacs, this is -*- perl -*-
> use warnings;
> use strict;
> use Person::Stub;
> use ACME;
> use ACME::Catalog;
>
> my $me = new Person::Stub( 'Luis Motta Campos' );
> my $nilson = new Person::Stub( 'Nilson Santos' );
>
> my $acme_factory = new ACME( operator => $me );
> my $fire_suit = ACME->factory->build(
> $ACME::Catalog->{Suites}{Militar}{FireProof}{Heavy}
> );
>
> $me->helps( $nilson )->wear( $fire_suit );
> __END__
>
> Puxa... fazia tanto tempo que eu não escrevia poesia perl que achava
> que não podia mais... mas aqui tem um pedaço de prosa BEM eloquente... ;-)
Achei que alguém poderia querer guardar isto por mais tempo.
http://www.perlmonks.org/?node_id=580891
--
Luis Motta Campos
Senior System Engineer at Segula.FR
Hobbyist Cooker and Photograph
Mais detalhes sobre a lista de discussão Cascavel-pm