File Coverage

blib/lib/Statistics/Swoop.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	11	12	91.6
condition			n/a
subroutine	10	10	100.0
pod	5	5	100.0
total	68	69	98.5

package Statistics::Swoop;
use strict;
use warnings;
use Carp qw/croak/;
use Class::Accessor::Lite (
    rw  => [qw/list/],
    ro  => [qw/count max min range sum avg/],
);

our $VERSION = '0.02';

sub new {
    my ($class, $list) = @_;

    croak "first arg is required as array ref" unless ref($list) eq 'ARRAY';

    my $self = bless +{
        list  => $list,
        count => scalar @{$list},
    } => $class;

    $self->_calc if $self->count;
    return $self;
}

sub _calc {
    my $self = shift;

    my $sum;
    my $max = $self->list->[0];
    my $min = $self->list->[0];
    my $range;
    my $avg;

    for my $i (@{$self->list}) {
        $sum += $i;
        if ($max < $i) {
            $max = $i;
        }
        elsif ($min > $i) {
            $min = $i;
        }
    }

    if ($self->count == 1) {
        $self->{range} = $max;
        $self->{avg}   = $max;
    }
    elsif ($self->count > 1) {
        $self->{range} = $max - $min;
        $self->{avg}   = $sum / $self->count;
    }
    $self->{sum} = $sum;
    $self->{max} = $max;
    $self->{min} = $min;
}

sub maximum { $_[0]->max }
sub minimum { $_[0]->min }
sub average { $_[0]->avg }

sub result {
    my $self = shift;

    return +{
        count => $self->count,
        max   => $self->max,
        min   => $self->min,
        range => $self->range,
        sum   => $self->sum,
        avg   => $self->avg,
    };
}

1;

__END__