# $Id: Config.pm,v 1.4 2003/09/28 08:09:30 clajac Exp $

package CPANXR::Config;
use Config::Simple;

use strict;

my $Config = undef;

sub _init {
  $Config = Config::Simple->new("/etc/cpanxr.conf");
}

sub get {
  shift;
  _init() unless(defined $Config);

  return $Config->param($_[0]);
}


1;