[Cascavel-pm] Carregar modulo sob demanda

[Joenio Marques]

Seguindo a sugestao de Gilmar... ficou assim.

sub get {
    my $class = shift;     my $obj;

    eval " use $class; ";
    croak "Classe invalida!\n" if $@;

    eval { $obj = $class->new(); };
    croak "Problemas ao instanciar classe!\n" if $@;

    return $obj;
}

Obrigado pelas dicas,
Joenio Marques
- Salvador Perl Mongers