File Coverage

blib/lib/DataDog/DogStatsd/Helper.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	6	8	75.0
condition	8	9	88.8
subroutine	10	11	90.9
pod	0	6	0.0
total	51	62	82.2

package DataDog::DogStatsd::Helper;

use strict;
use warnings;
our $VERSION = '0.05';

use base qw( Exporter );
our @EXPORT_OK = qw/stats_inc stats_dec stats_timing stats_gauge stats_count stats_histogram/;

use DataDog::DogStatsd;

## no critic (Subroutines::RequireFinalReturn)
sub stats_inc {
    my @args = @_;
    # support stats_inc('test.blabla', 0.1); as well
    if (@args > 1 and $args[1] =~ /^[\d\.]+$/) {
        # actually ppl wants stats_count
        warn "stats_inc sample_rate makes no sense for more than 1\n" if $args[1] > 1;
        $args[1] = {sample_rate => $args[1]};
    }
    __get_dogstatsd()->increment(@args);
}
sub stats_dec    { __get_dogstatsd()->decrement(@_); }

sub stats_timing {
    my @args = @_;
    # support stats_timing('connection_time', 1000 * $interval, 0.1); as well
    if (@args > 2 and $args[2] =~ /^[\d\.]+$/) {
        # actually ppl wants stats_count
        warn "stats_timing sample_rate makes no sense for more than 1\n" if $args[2] > 1;
        $args[2] = {sample_rate => $args[2]};
    }
    __get_dogstatsd()->timing(@args);
}

sub stats_gauge      { __get_dogstatsd()->gauge(@_); }
sub stats_count      { __get_dogstatsd()->count(@_); }
sub stats_histogram  { __get_dogstatsd()->histogram(@_); }

my $__DOGSTATSD;
sub __get_dogstatsd {
    $__DOGSTATSD ||= DataDog::DogStatsd->new;
    return $__DOGSTATSD;
}

1;
__END__