[Cascavel-pm] Maneira melhor para escrever e reduzir trecho de código.

[Eden Cardim]

2008/4/7 Daniel Ruoso <daniel em ruoso.com>:

Alguns acréscimos que eu faria:

>  use UNIVERSAL qw(can);

use UNIVERSAL::require;

>  ...
>  {
>    my $package = 'Sub::'.$sup;

$package->require or die $@;

>    my $sub_a = $package->can('METHOD_A')
>       or die 'No method a';
>    $self->{book} = $package->new($xml, $sub_a->());
>  }

-- 
edenc.vox.com