File Coverage

blib/lib/OpenPlugin/Config/Conf.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	21	26	80.7

package OpenPlugin::Config::Conf;

# $Id: Conf.pm,v 1.9 2003/04/03 01:51:24 andreychek Exp $

use strict;
use base            qw( OpenPlugin::Config );
use Log::Log4perl   qw( get_logger );
use Config::General();

$OpenPlugin::Config::Conf::VERSION = sprintf("%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/);

my $logger = get_logger();

# Stuff in metadata (_m):
#   sections (\@): all full sections, in the order they were read
#   comments (\%): key is full section name, value is comment scalar
#   filename ($):  file read from


########################################
# PUBLIC INTERFACE
########################################


sub get_config {
    my ( $self, $filename ) = @_;

    my $data = Config::General->new( -ConfigFile     => $filename,
                                     #-LowerCaseNames => 1,
    );

    my %config = $data->getall;

    return \%config;
}


sub write {
    my ( $self, $filename ) = @_;
    $logger->info( "We don't support write yet" );
}


1;

__END__