File Coverage

blib/lib/Algorithm/RankAggregate/AverageRating.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	6	10	60.0
condition	2	3	66.6
subroutine	7	7	100.0
pod	1	4	25.0
total	59	67	88.0

package Algorithm::RankAggregate::AverageRating;

use strict;
use warnings;
our $VERSION = '0.0.3_00';

use base qw/Algorithm::RankAggregate/;

sub get_averagerating_result {
    my ($this, $ranked_lists_list) = @_;
    my @lists_list = ();
    for (my $i = 0; $i <= $#{$ranked_lists_list->[0]}; $i++) {
        my $result = 0;
        for (my $j = 0; $j <= $#{$ranked_lists_list}; $j++) {
            $result = $result + $ranked_lists_list->[$j]->[$i];
        }
        $result = $result / ($#{$ranked_lists_list} + 1);
        push @lists_list, $result;
    }
    return \@lists_list;
}

sub aggregate_rank_to_rating {
    my ($this, $ranked_lists_list) = @_;
    my @result = ();
    if ((exists $this->{weight}) && (exists $this->{weight}->[0])) {
        $ranked_lists_list = $this->get_weighted_count_lists_list($ranked_lists_list);
    }
    @result = @{$this->get_averagerating_result($ranked_lists_list)} if (@{$ranked_lists_list});
    return \@result;
}

sub aggregate_score_to_rating {
    my ($this, $score_lists_list) = @_;
    my @result = ();
    my $ranked_lists_list = $this->get_ranked_lists_list($score_lists_list);
    @result = @{$this->aggregate_rank_to_rating($ranked_lists_list)} if (@{$ranked_lists_list});
    return \@result;

}

sub aggregate {
    my ($this, $score_lists_list) = @_;
    my @result = ();
    return \@result unless ($this->validate_lists_list($score_lists_list));
    @result = @{$this->aggregate_score_to_rating($score_lists_list)} if (@{$score_lists_list});
    return \@result;
}

1;
__END__