Teste :: sem.

Código de execução ao ocultar caminhos da biblioteca ou módulos específicos
Baixe Agora

Teste :: sem. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Randy J Ray
  • Site do editor:
  • http://search.cpan.org/~rjray/

Teste :: sem. Tag


Teste :: sem. Descrição

Execute o código enquanto esconde caminhos da biblioteca ou módulos específicos Teste :: Sem é um módulo Perl que facilita a exclusão de módulos específicos e / ou diretórios do caminho da pesquisa de Perl durante a execução de blocos de código.developer commentsi escreveu isso depois de precisar escrever um hack feel Um módulo de CPAN diferente, a fim de testar o código que tentaria carregar compactar :: Zlib, mas necessário para testar os caminhos lógicos que só executam quando a compactação não está disponível. Este módulo não é para testar se o código carrega e compila corretamente; Veja a função USE_OK do teste :: Mais para isso. O módulo funciona criando um escopo léxico em que ambos @inc e% inc são localizados e executando o bloco determinado dentro desse escopo. Os módulos (e possivelmente direcories) estão ocultos são especificados neste momento. Diretórios que são dados são imediatamente removidos de @inc. Os módulos são tratados por meio de uma sub-rotina inserida na cabeça de @ inc.Conversely, a sintaxe pode ser usada para exigir o presente de módulos específicos, jogando uma exceção via morrer se qualquer recurso de solicitação não estiver disponível ou temporariamente adicionar caminhos extras para @Inc. Nesse caso, nenhum dos códigos no bloco fornecido terá sido executado antes do relatório dos recursos ausentes. O chamador também pode fornecer parâmetros a serem passados para o bloco de código quando for chamado. Isso é supérfluo para blocos definidos em linha, mas nos casos em que o argumento de bloco é um escalar de referência de código que está sendo reutilizado, isso pode ser útil.Synopsis Use teste :: sem; Executar {EVAL "Exigir RPC :: XML :: Cliente"; $ Client = RPC :: XML :: Cliente-> Novo (); OK (! $ Cleste-> Compress () ", cliente não tem suporte de compressão"); } Sem 'comprimir :: Zlib'; # Executar um bloco com parâmetros Executar {My% ARGS = @_; eval "Requer RPC :: XML :: Server"; $ server = rpc :: xml :: server-> novo (@_); é ($ server-> porta, $ args {port}, "porta definida corretamente"); é ($ server-> caminho, $ args {path}, "conjunto de caminho corretamente"); # Etc.} Sem 'Compress :: Zlib', 'Net :: Server', params port => 9000, caminho => '/ rpc'; Requisitos: · Perl.


Teste :: sem. Software Relacionado

Sobre nós