File Coverage

lib/POEST/Config.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	2	0.0
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	31	38.7

# $Id: Config.pm,v 1.3 2003/04/08 00:27:30 cwest Exp $
package POEST::Config;

use strict;
$^W = 1;

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

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

	return bless \%args, $class;
}

sub config {
	my ($self) = @_;

	return $self;
}

sub get {
	my ($self, @configs) = @_;

	my %conf = ();
	foreach ( @configs ) {
		$conf{$_} = $self->{$_} if exists $self->{$_};
	}

	return \%conf;
}

sub set {
	my ($self, %set) = @_;

	my @keys = keys %set;

	@{$self}{@keys} = @set{@keys};
}

1;

__END__