note
tobyink
<p>It would be helpful if the sample code you provided actually compiled (undefined <c>$class</c>, <c>%args</c> and <c>&shuffle</c> prevents compilation with strict subs/vars). Fixing those issues...</p>
<readmore><code>
#!/usr/bin/env perl
use 5.016;
use warnings;
use Carp::Always;
BEGIN { *CORE::GLOBAL::exit = sub { die("exit called") } }
END { say "END block"; }
my $crawler = Crawler->new;
$crawler->run;
die("finished");
package Crawler {
use parent 'LWP::UserAgent';
use List::Util qw(shuffle);
sub new {
my ($class, %args) = @_;
my $self = $class->SUPER::new(%args);
$self->{ids} = [1..100];
return $self;
}
sub run {
my $self = shift;
my @idx = shuffle 0 .. -1 + @{ $self->{ids} };
my $cur = 0;
for my $i (@idx) {
my $id = $self->{ids}[$i];
printf "%d/%d: %s (%d)\n", ++$cur, 0+@idx, $id, $i;
# Fetch and process stuff related to this id.
}
}
sub DESTROY { say "Crawler destroyed" }
}
</code></readmore>
<p>... the code seems to execute correctly here.</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1004479
1004479