File Coverage

blib/lib/Config/Lite.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	42	42	100.0

package Config::Lite;

use strict;
use warnings;
use Fcntl qw/:flock/;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(load_config set_config_separator);
our @EXPORT = qw();
our $VERSION = '0.03';

our %separator;
$separator{'kv'} = "=";
$separator{'comment'} = "#";
$separator{'line'} = "\n";

sub set_config_separator
{
	my $kind = shift;
	my $str = shift;
	$separator{$kind} = $str;
	return 1;
}

sub load_config
{
	my $config_filename = shift;
	open my $fh,"<", $config_filename or return "no config file found";
	flock $fh, LOCK_SH;
	my $config_string = do { local $/ ; <$fh> };
	flock $fh, LOCK_UN;
	close $fh;

	my @config_array = split /$separator{'line'}/, $config_string;
	my %config_hash;
	foreach ( @config_array )
	{
		next unless $_ =~ /$separator{'kv'}/;
		next if $_ =~ /^$separator{'comment'}/;
		my ($k, $v) = $_ =~ /\s*(.+?)$separator{'kv'}(.+?)\s*$/;
		$config_hash{$k} = $v;
	}
	return %config_hash;
}



1;
__END__