File Coverage

blib/lib/Algorithm/RankAggregate/AverageRank.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	5	10	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	45	50	90.0

package Algorithm::RankAggregate::AverageRank;

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

use base qw/Algorithm::RankAggregate::AverageRating/;

sub aggregate_rank_to_rank {
    my ($this, $ranked_lists_list) = @_;
    my @result = ();
    my $bordacount_result_list = $this->aggregate_rank_to_rating($ranked_lists_list) if (@{$ranked_lists_list});
    @result = @{$this->get_reverse_ranked_list($bordacount_result_list)} if (@{$bordacount_result_list});
    return \@result;
}

sub aggregate_score_to_rank {
    my ($this, $score_lists_list) = @_;
    my @result = ();
    my $ranked_lists_list = $this->get_ranked_lists_list($score_lists_list);
    @result = @{$this->aggregate_rank_to_rank($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_rank($score_lists_list)} if (@{$score_lists_list});
    return \@result;
}

1;
__END__