File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	0	5	0.0
total	39	44	88.6

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

use base qw/Exporter/;
use Data::Dumper;
use Redis;

our $redis;

sub new {
    my $class = shift;
    my $self = {};
    bless($self, $class);
    $self->init(@_);
    return $self;
}

sub init {
    my ($self, $name) = @_;
    $self->{name} = $name;
}

sub r { $redis }
sub redis {
    my ($self, $r) = @_;
    $redis = $r if ($r);
    return $redis;
}
sub name { shift->{name} }

1;