File Coverage

blib/lib/Algorithm/DimReduction/Result.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	21	47.6

package Algorithm::DimReduction::Result;
use strict;
use warnings;

sub new {
    my $class = shift;
    my %args  = @_;
    return bless { %args }, $class;
}

sub contribution_rate {
    my $self = shift;
    my $eigens = $self->{eigens};
    my @rate;
    for my $i( 1 .. @$eigens){
        push @rate, {reduct_to => $i, rate => $eigens->[$i-1] };
    }
    return \@rate;
}

1;
__END__