<%init> use Flickr::Person; use Flickr::Photo; my $username = 'KirrilyRobert'; my $api_key = { api_key => 'XXX', }; my $howmany = 15; my $person = Flickr::Person->new($api_key); my $photo = Flickr::Photo->new($api_key); $person->find({username => $username}); my $photosets = $person->photosets(); my @photos; foreach my $set (@{$photosets}[0..$howmany-1]) { $photo->id({id => $set->primary}); push @photos, { id => $photo->id, title => $photo->title, thumbnail => $photo->sizes->[0]->{'source'}, }; }
% foreach my $p (@photos) { <% $p->{title} %> % }

Flickr Kirrily's photos »