[Cascavel-pm] Arquivo configuracao a parte

[Eden Cardim]

On 8/16/06, Igor Sutton <igor.sutton em gmail.com> wrote:
>
>
> > Mostre o código!
>
> <code>
>  sub factory {
>      my $wanted = shift;
>      my %factory = (
>          'square' => sub { "square" },
>          'triangle' => sub { "triangle" },
>      );
>      return $factory{$wanted}->();
>  }
>
>  print factory('triangle');
> </code>

Na verdade, seria algo mais assim:

sub new_factory {
	my $wanted = shift;
	return sub { "building $wanted...\n" };
}

my $triangle_factory = new_factory('triangle');
my $square_factory = new_factory('square');
print $triangle_factory->();
print $square_factory->();

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática