File Coverage

blib/lib/Lingua/JA/OkapiBM25/Result.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Lingua::JA::OkapiBM25::Result;
use strict;
use warnings;
use base qw(Lingua::JA::TFIDF::Result);


sub list {
	my $self = shift;
    my $num  = shift;
    my @list;
    my $data = $self->{data};
    my ( $word, $ref ) = each %$data;
    my $label = 'bm25';
    my $i = 0;
    for (
        sort { $data->{$b}->{$label} <=> $data->{$a}->{$label} }
        keys %{ $self->{data} }
      )
    {
        push( @list, { $_ => $data->{$_}->{$label} } );
        $i++;
        last if $num and $i == $num;
    }
    return \@list;
}

1;
__END__