So, it's been a while since I've used Perl and I never really got THAT
deep into it to begin with, but I was reading over the source code for
MetaCPAN::Client:
http://api.metacpan.org/source/XSAWYERX/MetaCPAN-Client-1.003000/lib/MetaCPAN/Client.pm
and I was wondering where I could read more about basically everything
that's going on here:
sub _reverse_deps {
my $self = shift;
my $dist = shift;
my $res;
eval {
$res = $self->fetch(
'/search/reverse_dependencies/'.$dist,
{
query => { match_all => {} },
filter => { term => { 'release.status' => 'latest' } },
size => 5000,
}
);
} or do {
warn $@;
return [];
};
return +[
map { MetaCPAN::Client::Release->new_from_request($_->{'_source'}) }
@{ $res->{'hits'}{'hits'} }
];
}
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/