Statsd Configuration
--------------------
By default, Hydra will send stats to statsd at `localhost:8125`. Point Hydra to a different server via:
```
<statsd>
  host = alternative.host
  port = 18125
</statsd>
```

    getSCMCacheDir

    getSCMCacheDir getStatsdConfig

# Return hash of statsd configuration of the following shape:
# (
#   host => string,
#   port => digit
# )
sub getStatsdConfig {
    my ($config) = @_;
    my $cfg = $config->{statsd};
    my %statsd = defined $cfg ? ref $cfg eq "HASH" ? %$cfg : ($cfg) : ();
    return {
        "host" => %statsd{'host'}  // 'localhost',
        "port" => %statsd{'port'}  // 8125,
    }
}

my $statsdConfig = Hydra::Helper::Nix::getStatsdConfig($config);
$Net::Statsd::HOST = $statsdConfig->{'host'};
$Net::Statsd::PORT = $statsdConfig->{'port'};

my $config = getHydraConfig();
my $statsdConfig = Hydra::Helper::Nix::getStatsdConfig($config);
$Net::Statsd::HOST = $statsdConfig->{'host'};
$Net::Statsd::PORT = $statsdConfig->{'port'};

use strict;
use Setup;
my %ctx = test_init(hydra_config => q|
<statsd>
  host = foo.bar
  port = 18125
</statsd>
|);
require Hydra::Helper::Nix;
use Test2::V0;
is(Hydra::Helper::Nix::getStatsdConfig(Hydra::Helper::Nix::getHydraConfig()), {
    'host' => "foo.bar",
    'port' => 18125
}, "Reading specific configuration from the hydra.conf works");
is(Hydra::Helper::Nix::getStatsdConfig(), {
    'host' => "localhost",
    'port' => 8125
}, "A totally empty configuration yields default options");
is(Hydra::Helper::Nix::getStatsdConfig({
    "statsd" => {
    }
}), {
    'host' => "localhost",
    'port' => 8125
}, "A empty statsd block yields default options");
is(Hydra::Helper::Nix::getStatsdConfig({
    "statsd" => {
        'host' => "statsdhost"
    }
}), {
    'host' => "statsdhost",
    'port' => 8125
}, "An overridden statsd host propogates, but the other defaults are returned");
is(Hydra::Helper::Nix::getStatsdConfig({
    "statsd" => {
        'port' => 5218
    }
}), {
    'host' => "localhost",
    'port' => 5218
}, "An overridden statsd port propogates, but the other defaults are returned");
is(Hydra::Helper::Nix::getStatsdConfig({
    "statsd" => {
        'host' => 'my.statsd.host',
        'port' => 5218
    }
}), {
    'host' => "my.statsd.host",
    'port' => 5218
}, "An overridden statsd port and host propogate");
done_testing;