File Coverage

blib/lib/Mail/Salsa/Config.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	32	50.0

#
# Mail/Salsa/Config.pm
# Last Modification: Thu May 27 18:32:49 WEST 2004
#
# Copyright (c) 2004 Henrique Dias . All rights reserved.
# This module is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
package Mail::Salsa::Config;

use 5.008000;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Mail::Salsa::Config ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

# Preloaded methods go here.

sub get_config {
	my $config = &load_config(
		file     => undef,
		defaults => {},
		@_,
	);
	return($config);
}

sub load_config {
	my $args = {@_};

	my $wloop = <
while() {
	study;
	/^\\w/ or next;
	my (\$k, \$v) = split(/ *= */);
	\$v =~ s/\\s+\$//g;
	\$v =~ /^(.+)\$/;
	\$config{\$k} = (ref(\$args->{defaults}->{\$k}) eq "ARRAY") ? [map {/^(.+)\$/} split(/ *, */, \$1)] : \$1;
}
ENDCODE
	my %config = %{$args->{defaults}};
	open(CONFIG, join("", "<", $args->{file})) or die("No such configuration file\n");
	eval($wloop);
	close(CONFIG);
	return(\%config);
}


# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__