App::Hachero::Plugin::Summarize::NarrowDown - cuts up and sorts results

  ---
  plugins:
    - module: Summarize::NarrowDown
      config:
        from_result_key: URI
        to_result_key: ranking
        primary:
            - path
        limit: 10

package App::Hachero::Plugin::Summarize::NarrowDown;
use strict;
use warnings;
use base qw(App::Hachero::Plugin::Base);

sub summarize :Hook {
    my ($self, $context) = @_;
    my $config = $self->config->{config};
    my $tmp;
    if ($config->{primary}) {
        $tmp = App::Hachero::Result::PrimaryPerInstance->new(
            { 
                primary => $config->{primary},
                sort_key => [ 'count', @{$config->{primary}} ],
                sort_reverse => 1,
            }
        );
        for my $r ( $context->result->{$config->{from_result_key}}->values ) {
            $tmp->push(
                +{ map {$_ => $r->{$_}} ('count', @{$config->{primary}}) }
            );
        }
    } else {
        $tmp = $context->result->{$config->{from_result_key}};
    }
    my $count = 0;
    my $result = App::Hachero::Result::PrimaryPerInstance->new(
        { 
            primary => $tmp->{primary},
            sort_key => [ 'count', @{$tmp->{primary}} ],
            sort_reverse => 1,
        }
    );
    $context->result->{$config->{to_result_key}} = $result;
    for my $r ($tmp->values({keys => ['count', @{$tmp->primary}], reverse => 1})) {
        last if $config->{limit} && ($count++ == $config->{limit});
        last if $config->{mincount} && ($r->{count} < $config->{mincount});
        $result->push($r);
    }
}

1;
__END__