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/


Reply via email to