File Coverage

blib/lib/Statistics/CountAverage.pm

Criterion	Covered	Total	%
statement	17	51	33.3
branch	0	4	0.0
condition	1	17	5.8
subroutine	4	10	40.0
pod	6	7	85.7
total	28	89	31.4

package Statistics::CountAverage;
use strict;
use warnings;

our $VERSION = '0.02';
use Time::HiRes qw(gettimeofday);

sub new {
    my $class = shift;
	my $len = shift;
    my $self = bless {}, $class;
	$self->{len} = $len || 10;
	$self->{count} = 0;
	$self->{time} = 0;
	$self->{ary} = [{count => 0, time => scalar gettimeofday(),diff => 0}];
    return $self;
}
# $obj->count(100) - ïîäñ÷èòàòü 100 ñîáûòèé
sub count {
	my $self = shift;
	my $add = shift || 1 ;

	my $now = gettimeofday();
	my $prev = $self->{ary}[-1]{time};
	my $diff = $now - $prev;

	my $tmp = {count => $add, time => $now, diff => $diff};

	push @{$self->{ary}},$tmp;
	$self->{count} += $add;
	$self->{time} += $diff;

	if(@{$self->{ary}} > $self->{len}){
		$tmp = shift @{$self->{ary}};
		$self->{count} -= $tmp->{count};
		$self->{time} -= $tmp->{diff};
	}
}
# $obj->check(10) - âîçâðàùàåò true 1 ðàç êàæäûå 10 ñåêóíä
# âåðíåò true åñëè ñî âðåìåíè ïîñëåäíåãî âîçâðàòà true ïðîøëî <= 10 ñåêóíä
sub check {
	my $self = shift;
	my $to = shift || 1;
	my $now = gettimeofday();
	if(($self->{last} ||= $now) + $to > $now){
		return 0;
	}
	$self->{last} = $now;
}
# ÷èñëî ñîáûòèé çà ñåêóíäó
sub speed {
	my $self = shift;
	return $self->{count}/($self->{time}||1);
}
# ÷èñëî ïîäñ÷åòîâ çà ñåêóíäó
sub rate {
	my $self = shift;
	return @{$self->{ary}}/($self->{time}||1);
}
# êîëè÷åñòâî ñîáûòèé çà ïîäñ÷åò
sub avg {
	my $self = shift;
	return $self->{count}/@{$self->{ary}};
}
sub stat {
	my $self = shift;
	return +{
		speed => $self->{count}/($self->{time}||1),
		rate => @{$self->{ary}}/($self->{time}||1),
		avg => $self->{count}/@{$self->{ary}},
	};
}

1;
__END__