File Coverage

blib/lib/Config/INI/Access.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	8	10	80.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	51	57	89.4

package Config::INI::Access;

use vars qw ($VERSION);
$VERSION = '0.9999';

use strict;
use Config::INI::Reader;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(config);

my $Config = {};
bless $Config, __PACKAGE__;

our $AUTOLOAD;
sub AUTOLOAD {
    my $key = shift;
    my $subkey = $AUTOLOAD;

    $subkey =~ s{.*::}{};

	$key = exists $key->{$subkey} ? $key->{$subkey} : bless {}, __PACKAGE__;

    if (ref $key) {
		return bless $key, __PACKAGE__;
	}
	else {
		return $key;
	}
}

sub DESTROY {
}

sub config {
    return $Config;
}

sub load {
	my $this = shift;
    my $filename = shift;

	return 0 unless -e $filename;

    my $ini = Config::INI::Reader->read_file($filename);

    my $c = 0;
    foreach my $section (keys %$ini) {
        unless ($Config->{$section}) {
			if ('_' eq $section) {
				foreach my $key (keys %{$ini->{$section}}) {
					$Config->{$key} = $ini->{$section}->{$key};
					$c++;
				}
			}
			else {
	            $Config->{$section} = $ini->{$section};
				$c += keys %{$ini->{$section}};
			}
        }
        else {
            foreach my $key (keys %{$ini->{$section}}) {
                $Config->{$section}->{$key} = $ini->{$section}->{$key};
                $c++;
            }
        }
    }

    return $c;
}

1;

__END__