File Coverage

blib/lib/Config/File.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	9	12	75.0
condition	4	5	80.0
subroutine	7	7	100.0
pod	1	1	100.0
total	64	68	94.1

package Config::File;
use warnings;
use strict;
use Carp;
use Exporter;
use IO::File;

use vars qw($VERSION @ISA @EXPORT_OK);
@ISA       = qw/Exporter/;
@EXPORT_OK = qw/read_config_file/;
$VERSION   = '1.54';

sub read_config_file($) {
    my ( $conf, $file, $fh, $line_num );
    $file = shift;
    $fh = IO::File->new( $file, 'r' )
      or croak "Can't read configuration in $file: $!\n";

    while ( ++$line_num and my $line = $fh->getline ) {
        my ( $orig_line, $conf_ele, $conf_data );
        chomp $line;
        $orig_line = $line;

        next if $line =~ m/^\s*#/;
        $line =~ s/(?
        $line =~ s/\\#/#/g;
        next if $line =~ m/^\s*$/;
        $line =~ s{\$(\w+)}{
            exists($conf->{$1}) ? $conf->{$1} : "\$$1"
            }gsex;

        unless ( $line =~ m/\s*([^\s=]+)\s*=\s*(.*?)\s*$/ ) {
            warn "Line format invalid at line $line_num: '$orig_line'";
            next;
        }

        ( $conf_ele, $conf_data ) = ( $1, $2 );
        unless ( $conf_ele =~ /^[\]\[A-Za-z0-9_-]+$/ ) {
            warn "Invalid characters in key $conf_ele at line $line_num"
              . " - Ignoring";
            next;
        }
        $conf_ele =
          '$conf->{"' . join( '"}->{"', split /[][]+/, $conf_ele ) . '"}';
        $conf_data =~ s!([\\\'])!\\$1!g;
        eval "$conf_ele = '$conf_data'";
    }
    $fh->close;

    return $conf // {};
}

1;

__END__