File Coverage

blib/lib/Gantry/Conf/Provider/FlatFile/Config/General.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	32	33	96.9

package Gantry::Conf::Provider::FlatFile::Config::General;

#####################################################################
#
#  Name        :    Gantry::Conf::Provider::FlatFile::Config::General;
#  Author      :    Frank Wiles
#
#  Description :    Gantry::Conf provider that allows the use of
#                   Config::General config files.
#
#####################################################################

use strict;
use warnings;

use Carp qw(croak);

use Config::General;
use Gantry::Conf::Provider;
use base qw( Gantry::Conf::Provider );

#------------------------------------------------
# config
#------------------------------------------------
# Configure ourself with a Config::General
# config file
#------------------------------------------------
sub config {
    my $self    =   shift;
    my $file    =   shift;

    my $config = Config::General->new( $file ) or
        croak "Unable to create Config::General object: $!";

    my %confs = $config->getall;

    return( \%confs );

} # END config

1;

__END__