PoE :: Component :: CPAN :: Reporter Breng de kracht van POE naar CPAN-rooktests
Download nu

PoE :: Component :: CPAN :: Reporter Rangschikking & Samenvatting

PoE :: Component :: CPAN :: Reporter Tags

Perl-module rook Poe PoE-component CPAN CPAN-verslaggever

PoE :: Component :: CPAN :: Reporter Beschrijving

De kracht van POE naar CPAN-rooktesten brengen PoE :: Component :: CPAN :: Reporter is een PoE-gebaseerd framework rond CPAN en CPAN :: Reporter. Deze module ontvangt inzendingen van andere POE-sessies, spawnt een PoE :: Wheel :: RUNLEND om te gaan met het uitvoeren van CPAN :: Reporter, legt de uitvoer vast en retourneert de resultaten naar de verzoekende sessie.Only één taakverzoek kan per keer worden verwerkt. Als een taak aan de gang is, worden alle ingediende taken toegevoegd aan een in afwachting van Jobs-wachtrij.By de standaard de component gebruikt PoE :: Wiel :: Run to Fork Nog een kopie van de momenteel uitvoerende PERL, uitgewerkt van $ ^ x. U kunt echter een ander PERL-uitvoerbaar bestand opgeven. MSWIN32-gebruikers Zie het gedeelte van dit document met betrekking tot uw platform. U bent verantwoordelijk voor het installeren en configureren van CPAN en CPAN :: Verslaggever en het instellen van een geschikte perl-rokenomgeving. Synopsis Gebruik streng; Gebruik Poe QW (Component :: CPAN :: Reporter Component :: SmokeBox :: Recent); gebruik getopt :: lang; $ | = 1; mijn ($ perl, $ banen, $ recenteurl); GetOptions ('Perl = S' => $ PERL, 'Jobs = S' => $ Jobs, 'Receoundurl' => $ RECODEURL); mijn @pending; If ($ Jobs) {Open mijn $ FH, "<$ jobs" of die "$ jobs: $! " terwijl (<$ fh>) {chomp; push @pending, $ _;} sluiten ($ FH);} mijn $ roker = poe :: component :: CPAN :: reporter-> spawn (alias => 'roker '); POE :: SESSIE-> Maken (pakket_states => ,], heap => {perl => $ perl, in behandeling => @pending},) ; $ POE_KERNEL-> RUN (); EXIT 0; SUB _START {MY ($ kernel, $ heap) = @_ ; if (@ {$ heap -> {in behandeling}}) {$ kernel-> Post ('Smoker', 'Indienen', {Evenement => '_results', Perl => $ heap -> {PERL}, module => $ _}) voor @ {$ heap -> {in behandeling}};} anders {Poe :: component :: SmokeBox :: Recent-> Recent (URL => $ recenturl || 'http://www.cpan.org/', evenement => 'Recent',); $ Kernel-> Post ( 'Roker', 'recent', {Evenement => '_recent', Perl => $ heap -> {Perl}})} undef;} sub _stop {$ poe_kernel-> call ('roker', 'shutdown'); undef;} sub _resultaten {My $ Job = $ _ ; Print Stdout "Module:", $ Job -> {Module}, " ", print stdout" $ _ "Voor @ {$ vacature -> {log}}; undef;} sub _recent {my ($ kernel, $ heap, $ job) = @_ ; Die $ Job -> {fout}, " "Als $ Job -> {fout}; $ kernel-> post ('roker', 'submit', {event => '_results', perl => $ heap -> {perl}, module => $ _}) Voor @ {$ taak -> {recente}}; undef;} vereisten: · Perl

PoE :: Component :: CPAN :: Reporter Gerelateerde software