File Coverage

blib/lib/IBM/StorageSystem/StatisticsSet.pm

Criterion	Covered	Total	%
statement	6	70	8.5
branch	0	16	0.0
condition			n/a
subroutine	2	13	15.3
pod	8	9	88.8
total	16	108	14.8

package IBM::StorageSystem::StatisticsSet;

use strict;
use warnings;

our $VERSION = '0.01';
our $ITERATOR= 0;

sub new {
	my $class = shift;
	my $self = bless {}, $class;
	return $self
}

sub next {
	my $self = shift;
	defined @{ $self->{stats} }[$ITERATOR] or return undef;
	$ITERATOR++;
	return @{ $self->{stats} }[$ITERATOR - 1]
}

sub __push {
	my( $self, @vals ) = @_;
	push @{ $self->{stats} }, @vals;
}

sub count {
	my $self = shift;
	return scalar @{ $self->{stats} }
}

sub first {
	my $self = shift;
	return @{ $self->{stats} }[0]
}

sub last {
	my $self = shift;
	return @{ $self->{stats} }[-1]
}

sub min {
	my( $self, $value ) = @_;
	grep { /$value/ } $self->first->_values or return undef;
	defined $self->{_data}->{$value} or $self->_sort( $value );

	return wantarray	? @{ $self->{_data}->{$value} }
				: @{ $self->{_data}->{$value} }[0]
}

sub max {
	my( $self, $value ) = @_;
	$self->min( $value );
	return wantarray	? reverse @{ $self->{_data}->{$value} }
				: @{ $self->{_data}->{$value} }[-1]
}

sub avg {
	my $self = shift;
	my $d = {};
	my $c = 0;

	foreach my $s ( @{ $self->{stats} } ) {

		foreach my $v ( keys %{ $s } ) {
			next if $s->{$v} =~ /[a-zA-Z]/;
			$s->{$v} =~ /\d+(\.{1}\d+)?/ or next;
			$d->{$v} += $s->{$v};
		}

		$c++
	}

	foreach my $v ( keys %{ $d } ) {
		next unless $d->{$v};
		$d->{$v} /= $c
	}

	my $ref = ref( @{ $self->{stats} }[0]);
	my $s = $ref->new;

	for ( keys %{ $d } ) {
		$s->$_( $d->{$_} )
	}

	return $s
}

sub _sort {
	my( $self, $value ) = @_;
	@{ $self->{_data}->{$value} }	= map { $_->[0] }
					  sort { $a->[1] <=> $b->[1] }
					  map { [ $_, $_->$value ] } @{ $self->{stats} };
}

sub values {
	my $self = shift;
	return $self->first->_values;
}

1;

__END__