File Coverage

blib/lib/Net/PulseMeter/Sensor/Counter.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	20	23	86.9

package Net::PulseMeter::Sensor::Counter;
use strict;
use warnings 'all';

use base qw/Net::PulseMeter::Sensor::Base/;

sub event {
    my ($self, $value) = @_;
    $self->r->incrby($self->value_key, $value);
}

sub incr { shift->event(1) }

sub value_key {
    my $self = shift;
    sprintf("pulse_meter:value:%s", $self->name);
}

1;