Re: [Cascavel-pm] [Projeto]: API de Autenticação Versátil e
Graciliano M. P.
gmpowers em terra.com.br
Segunda Outubro 6 20:44:23 CDT 2003
> Agora, meu problema:
>
> Eu quero poder escrever apenas
>
> __PERL__
> use Auth;
>
> my $auth = new Auth( 'POP:servidor' );
> die "Invalido"
> unless $auth->check( 'nome', 'senha' );
> print "Valido";
> __END__
Bom, tratando-se de orientação a objeto e modelagem, o ideal é vc passar o
objeto mutável já construído como parâmetro, melhor ainda se for uma
interface:
use Auth;
my $auth_handler = new Auth::POP(...) ;
my $auth = new Auth( $auth_handler ) ;
Para saber se um determinado módulo Perl está disponível vc pode fazer:
eval{ require Module::Foo } ;
if ( !$@ ) { print "ok!" ;}
ou então com "use":
eval("use Module::Foo") ;
if ( !$@ ) { print "ok!" ;}
Para poder carrega-lo depois do teste com os parâmetros certos:
delete $INC{'Module/Foo.pm'} ;
eval(" use Module::Foo qw(x y z)");
Mas o ideal é jah testar passando os parâmetros.
Boa sorte,
GMP
Mais detalhes sobre a lista de discussão Cascavel-pm