hift || croak "cant open configuration file";
open(IN, $infile) || return 1;
my $s = do { local $/ = <IN> };
$self->{CONFIG} = YAML::XS::Load($s) || return 2;
warn "Configuring from $shift || croak "cant open configuration file";
open(IN, $infile) || return 0;
my $s = do { local $/ = <IN> };
close(IN);
return 2 unless $s;
$self->CONFIG( YAML::XS::Load($s) );
warnhift || croak "cant open configuration file";
open(IN, $infile) || return 1;
my $s = do { local $/ = <IN> };
$self->{CONFIG} = YAML::XS::Load($s) || return 2;
warn "Configuring from $