view release on metacpan or  search on metacpan

lib/Config/File.pm  view on Meta::CPAN

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;