File Coverage

blib/lib/DNS/Config/Statement.pm

Criterion	Covered	Total	%
statement	12	44	27.2
branch	0	12	0.0
condition	0	6	0.0
subroutine	4	8	50.0
pod	0	4	0.0
total	16	74	21.6

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

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

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

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

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

	bless $self, $class;

	return $self;
}

sub parse_tree {
	my($self, @array) = @_;

	return undef if(scalar(@{ $self->{'TREE'} }));

	push @{ $self->{'TREE'} }, @array;

	return $self;
}

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

	print $self->substatement(@{ $self->{'TREE'} });
	print "\n";

	return $self;
}

sub substatement {
	my($self, @array) = @_;
	my $string;
	my $flags = 0;

	my $arrays_only = 1;
	foreach my $element (@array) {
		$arrays_only = 0 if(ref($element) ne 'ARRAY');
	}

	$string .= "\{\n" if($arrays_only);

	foreach my $element (@array) {
		if(ref($element) eq 'ARRAY') {
			$string .= $self->substatement(@$element);
			$flags = 0;
		}
		else {
			$string .= "$element ";
			$flags = 1;
		}
	}

	$string .= "\} " if($arrays_only);
	$string .= "\;\n" if($flags || $arrays_only);

	return $string;
}

1;

__END__