File Coverage

blib/lib/DNS/Config.pm

Criterion	Covered	Total	%
statement	25	47	53.1
branch	1	10	10.0
condition	1	3	33.3
subroutine	7	10	70.0
pod	0	5	0.0
total	34	75	45.3

#!/usr/local/bin/perl -w
######################################################################
#
# DNS/Config.pm
#
# $Id: Config.pm,v 1.4 2003/02/16 10:15:31 awolf Exp $
# $Revision: 1.4 $
# $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;

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

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

sub new {
	my($pkg) = @_;
	my $class = ref($pkg) || $pkg;

	my $self = {
		'STATEMENTS' => []
	};

	bless $self, $class;

	return $self;
}

sub add {
	my($self, $statement) = @_;

	if(ref($statement) eq 'ARRAY') {
		push @{ $self->{'STATEMENTS'} }, @$statement;
	}
	else {
		push @{ $self->{'STATEMENTS'} }, ($statement);
	}

	return $self;
}

sub delete {
	my($self, $statement) = @_;

	for(my $i=0 ; $i < scalar @{$self->{'STATEMENTS'}} ; $i++) {
		next unless( defined( $self->{'STATEMENTS'}->[$i] ) );
		splice @{ $self->{'STATEMENTS'} }, $i, 1 if($self->{'STATEMENTS'}->[$i] == $statement);
	}

	return $self;
}

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

	eval {
		use Data::Dumper;

		print Dumper($self);
	};

	return;
}

sub statements {
	my($self, $type) = @_;
	my @result;

	if($type) {
		foreach (@{ $self->{'STATEMENTS'} }) {
			push @result, $_ if(ref($_) eq $type);
		}
	}
	else {
		@result = @{ $self->{'STATEMENTS'} };
	}

	return @result;
}

1;

__END__