File Coverage

blib/lib/DNS/Config/File.pm

Criterion	Covered	Total	%
statement	32	43	74.4
branch	2	6	33.3
condition	1	3	33.3
subroutine	7	10	70.0
pod	0	5	0.0
total	42	67	62.6

#!/usr/local/bin/perl -w
######################################################################
#
# DNS/Config/File.pm
#
# $Id: File.pm,v 1.5 2003/02/16 10:15:31 awolf Exp $
# $Revision: 1.5 $
# $Author: awolf $
# $Date: 2003/02/16 10:15:31 $
#
# Copyright (C)2001-2003 Andy Wolf. All rights reserved.
#
# This library is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
######################################################################

package DNS::Config::File;

no warnings 'portable';
use 5.6.0;
use strict;
use warnings;

my $VERSION   = '0.66';
my $REVISION  = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);

sub new {
	my($pkg, %hash) = @_;
	my $ref;

	my $type = 'DNS::Config::File::' . ucfirst $hash{'type'};
	my $file = $hash{'file'};
	my $conf = $hash{'config'};

	eval "require $type";

	if(!$@) {
		$ref = $type->new($file, $conf);
	}
	else {
		warn $@;
	}

	return $ref;
}

sub read {
	my($self, $file) = @_;
	my @lines;

	$file = $file || $self->{'FILE'};

	if(open(FILE, $file)) {
		@lines = ;
		chomp @lines;
		close FILE;
	}
	else { warn "File $file not found !\n"; }

	return @lines;
}

sub parse {
	my($self, $file) = @_;

	# Overwrite in sub classes !

	return $self;
}

sub dump {
	my($self, $file) = @_;

	# Overwrite in sub classes !

	return $self;
}

sub debug {
	my($self) = @_;

	return undef unless($self->{'CONFIG'});

	eval {
		use Data::Dumper;

		print Dumper($self->{'CONFIG'});
	};

	return 1;
}

1;

__END__