[Cascavel-pm] Carregar modulo sob demanda

[Gabriel Vieira]

Opa..

aqui vai +- como implementei:

sub modulo{
    if($_[0] =~ /^\w+$/){
        my $modulo = "$mod_dir/$_[0].pm";
        do "$modulo" if -e "$modulo";
    }
}


Bom.. com isso pode implementar o seu return tranquilamente..


Serve pra vc?

----- Original Message ----- 
From: "Joenio Marques" <joenio em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Tuesday, February 07, 2006 1:18 PM
Subject: Re: [Cascavel-pm] Carregar modulo sob demanda


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
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm