The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Pushmi::Config;
use strict;
use warnings;
use YAML::Syck;
use Cache::Memcached;
use Log::Log4perl;

my $config;

sub config {
    return $config if $config;

    my $file = $ENV{PUSHMI_CONFIG} || '/etc/pushmi.conf';
    unless (-e $file) {
	warn "pushmi config $file doesn't exist.\n";
	return $config = {};
    }

    return $config = LoadFile($file);
}

sub logger {
    shift;
    my $file = $ENV{PUSHMI_CONFIG} || '/etc/pushmi.conf';
    $file =~ s/pushmi/pushmi-log/;
    Log::Log4perl::init($file) if -e $file;
    Log::Log4perl::init('/etc/pushmi-log.conf') if -e '/etc/pushmi-log.conf';
    return Log::Log4perl->get_logger(@_);
}

sub memcached {
    return Cache::Memcached->new(
        {   'servers' =>
                [ "127.0.0.1:" . (Pushmi::Config->config->{authproxy_port} || 7123) ],
            'debug' => 0
        }
    );

}

1;