File Coverage

blib/lib/Net/Statsd/Server/Backend.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch			n/a
condition	2	6	33.3
subroutine	5	9	55.5
pod	0	6	0.0
total	28	47	59.5

# ABSTRACT: Backend base class for Net::Statsd::Server

package Net::Statsd::Server::Backend;
{
  $Net::Statsd::Server::Backend::VERSION = '0.17';
}

# Use statements {{{

use strict;
use warnings;
use Time::HiRes ();

# }}}

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

  my $name = name($class);
  $class = ref $class || $class;

  my $self = {
    lastFlush     => $startup_time,
    lastException => $startup_time,
    config        => $config->{$name},
  };

  bless $self, $class;

  # Subclass way of doing special things
  $self->init($startup_time, $config);

  return $self;
}

sub config {
  $_[0]->{config};
}

sub name {
  my ($self) = @_;

  my $backend_name = ref($self) || $self;
  $backend_name =~ s{^ .* :: ([^:]+) $}{$1}x;
  $backend_name = lc $backend_name;

  return $backend_name;
}

sub flush {
  die "Base class. Implement your own flush()";
}

sub status {
  die "Base class. Implement your own status()";
}

sub since {
  my ($self, $hires_ts) = @_;
  return int(Time::HiRes::tv_interval($hires_ts));
}

1;