Poe :: Component :: CPAN :: repórter trazendo o poder do PoE para o teste de fumaça de CPAN
Baixe Agora

Poe :: Component :: CPAN :: repórter Classificação e resumo

Poe :: Component :: CPAN :: repórter Tag

Módulo Perl. fumaça Poe. Componente PoE. CPAN. Repórter de cpan.

Poe :: Component :: CPAN :: repórter Descrição

Trazendo o poder do PoE para o teste de fumaça de CPAN PoE :: Componente :: CPAN :: Repórter é uma estrutura baseada em POE em torno de CPAN e CPAN :: repórter. Este módulo recebe submissões de outras sessões PoE, gera um PoE :: Roda :: Executar para lidar com a execução de CPAN :: Repórter, captura a saída e retorna os resultados para a sessão solicitante.Only Uma solicitação de trabalho pode ser processada por vez. Se um trabalho estiver em andamento, quaisquer trabalhos enviados forem adicionados a uma fila de trabalhos pendentes. Por padrão, o componente usa Poe :: Roda :: Executar para fork outra cópia do Perl de execução atualmente, trabalhado a partir de $ ^ x. Você pode especificar um executável perl diferente para usar. MSWIN32 Usuários Consulte a seção deste documento relacionada à sua plataforma. Você é responsável por instalar e configurar o CPAN e CPAN :: repórter e configuração de um ambiente de fumo perl adequado.Synopsis use rigoroso; Use PoE QW (Componente :: CPAN :: Componente Repórter :: SmokeBox :: Recente); Use GetOPT :: Long; $ | = 1; meu ($ perl, $ empregos, $ recenturl); GetOptions ('perl = s' => $ perl, 'trabalhos = s' => $ empregos, 'recenturl' => $ recanturl); minha @Pending; se ($ jobs) {abrir meu $ FH, "<$ jobs" ou morrer "$ jobs: $! "; enquanto (<$ fh>) {CHOMP; PUSH @Pending, $ _;} fechar ($ FH);} Meu $ fumante = poe :: componente :: cpan :: repporter-> spawn (alias => 'fumante '); POE :: Session-> Create (Package_States => ,], heap => {perl => $ perl, pendente => @pending},) $ poe_kernel-> Run (); saia 0; sub _start {my ($ kernel, $ heap) = @_ ; if (@ {$ heap -> {pendente}}) {pendente}})} post ('fumante', 'enviar', {event => '_results', perl => $ heap -> {perl}, módulo => $ _}) para @ {$ heap -> {pendente}};} mais {Poe :: Component :: SmokeBox :: Recent-> Recentes (URL => $ recenturl || http://www.cpan.org/ ', evento =>' recente ',); $ kernel-> post ( 'fumante', 'recente', {event => '_recent', perl => $ heap -> {perl}})}}} sub _stop {$ poe_kernel-> chamada ('fumante', 'desligamento'); undef;} sub _results {my $ job = $ _ ; Imprimir stdout "módulo:", $ job -> {módulo}, " "; imprimir stdout" $ _ "Para @ {$ job -> {log}}; UNDEF;} sub _recent {my ($ kernel, $ heap, $ trabalho) = @_ ; morrer $ job -> {error}, " "Se $ job -> {erro}; $ kernel-> post ('fumante', 'enviar', {event => '_results', perl => $ heap -> {perl}, módulo => $})) para @ {$ job -> {recente}}; undef;} requisitos: · Perl.

Poe :: Component :: CPAN :: repórter Software Relacionado