[Cascavel-pm] Databases, SQL, e operadores "leigos" [Was: Como verificar se um registro já...]

[Luis Motta Campos]

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