view release on metacpan or  search on metacpan

lib/Metrics/Any/Adapter/SignalFx.pm  view on Meta::CPAN

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

   my %labelledstats;
   if( $labelnames ) {
      foreach my $name ( keys %$stats ) {
         my $value = $stats->{$name};
         my @parts = split m/\./, $name;
         $parts[-1] = _labels( $labelnames, $labelvalues ) . $parts[-1];
         $name = join ".", @parts;

         $labelledstats{$name} = $value;
      }
   }
   else {
      %labelledstats = %$stats;
   }