| Current Path : /usr/share/doc/perl-MetaCPAN-Client/examples/ |
| Current File : //usr/share/doc/perl-MetaCPAN-Client/examples/agg.pl |
# examples/agg.pl
use strict;
use warnings;
use Data::Printer;
use MetaCPAN::Client;
my $author =
MetaCPAN::Client->new()->all(
'authors',
{
aggregations => {
aggs => {
terms => {
field => "country"
}
}
}
}
);
p $author->aggregations;