File Coverage

blib/lib/Metrics/Any/Adapter/DogStatsd.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	42	46	91.3

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2020 -- [e-mail]

package Metrics::Any::Adapter::DogStatsd;

use strict;
use warnings;
use base qw( Metrics::Any::Adapter::Statsd );

our $VERSION = '0.01';

use Carp;

# See also
#   https://metacpan.org/release/DataDog-DogStatsd/source/lib/DataDog/DogStatsd.pm

=head1 NAME

C - a metrics reporting adapter for DogStatsd

=head1 SYNOPSIS

   use Metrics::Any::Adapter 'DogStatsd';

This extension of L supports the additional tag
reporting syntax defined by F to report labelled metrics.

Additionally, distribution metrics are reported as native DogStatsd histograms
rather than the two-part count-and-sum implementation of plain statsd.

=cut

sub _tags
{
   my ( $labels, $labelvalues ) = @_;

   my @tags;
   foreach ( 0 .. $#$labels ) {
      push @tags, "$labels->[$_]:$labelvalues->[$_]";
   }

   return "" unless @tags;
   return "#" . join( ",", @tags );
}

sub send
{
   my $self = shift;
   my ( $stats, $labelnames, $labelvalues ) = @_;

   foreach my $name ( keys %$stats ) {
      my $value = $stats->{$name};
      my @values = ( ref $value ) ? @$value : ( $value );
      $_ .= _tags( $labelnames, $labelvalues ) for @values;
      $stats->{$name} = \@values
   }

   $self->SUPER::send( $stats );
}

# DogStatsd has a native "histogram" format; we'll use that
sub inc_distribution_by
{
   my $self = shift;
   my ( $handle, $amount, @labelvalues ) = @_;

   my $meta = $self->{metrics}{$handle} or croak "No metric '$handle'";

   my $value = sprintf "%g|h", $amount;

   $self->send( { $meta->{name} => $value }, $meta->{labels}, \@labelvalues );
}

=head1 AUTHOR

Paul Evans

=cut

0x55AA;