[ create a new paste ] login | about

Link: http://codepad.org/ffYrxmkw    [ raw code | output | fork ]

Perl, pasted on Nov 23:
1
2
3
4
5
6
7
8
my $images = Mojo::Collection->new;
while (defined $url) {
    my $images = $c->app->ua->get($url)->res->dom->find('img')->tap(sub {
        push @{$images}, $_;
    });
    undef $url if $images->size < $images_per_page;
}
$images = $images->flatten;


Output:
1
Can't locate object method "new" via package "Mojo::Collection" (perhaps you forgot to load "Mojo::Collection"?) at line 1.


Create a new paste based on this one


Comments: