File Coverage

lib/POEST/Config/General.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	6	0.0
condition	0	6	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	44	47.7

# $Id: General.pm,v 1.2 2003/03/22 17:06:17 cwest Exp $
package POEST::Config::General;

=pod

=head1 NAME

POEST::Config::General - Configuration via Config::General

=head1 ABSTRACT

A poest configurator based on Config::General, a file based
configuration.

=head1 DESCRIPTION

The description of the configuration file is explained in
L.  This configuration class conforms to the
specification explained in L.

=head2 Example Configuration

  Hostname localhost
  Port 2525

  Plugin POEST::Plugin::General
  Plugin POEST::Plugin::Check::Hostname

  RequireHost Yes
  AllowedHost localhost
  AllowedHost example.com

If no configuration file is passed, a list of reasonable default
directories are checked for C.


 /usr/local/etc
 /usr/local/etc/poest
 /etc/poest
 ./
 ./etc
 ~/
 ~/etc
 ~/.poest

=cut

use strict;
$^W = 1;

use vars qw[$VERSION];
$VERSION = (qw$Revision: 1.2 $)[1];

use Config::General;
use base qw[POEST::Config];
use Carp;

sub new {
	my ($class, %args) = @_;

	ATTEMPT: unless ( $args{ConfigFile} ) {
		my @locations = qw[
			/usr/local/etc
			/usr/local/etc/poest
			/etc/poest
			./
			./etc
			~/
			~/etc
			~/.poest
		];

		foreach ( @locations ) {
			if ( -e "$_/poest.conf" && -f _ && -s _ ) {
				$args{ConfigFile} = "$_/poest.conf";
				last ATTEMPT;
			}
		}
	}

	croak 'ConfigFile is empty' unless $args{ConfigFile};

	my $self = { ParseConfig(
		-ConfigFile     => $args{ConfigFile},
		-LowerCaseNames => 1,
	) };

	return bless $self, $class;
}

1;

__END__