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