package XML::Mini::Element::Entity;


use XML::Mini;
use XML::Mini::Element;

use strict;
use vars qw{
			
			$VERSION
};
			

$VERSION = '1.2.3';


use base qw (XML::Mini::Element);


=head1 NAME

XML::Mini::Element::Entity

=head1 DESCRIPTION

The XML::Mini::Element::Entity is used internally to represent <!ENTITY name "stuff">.

You shouldn't need to use it directly, see XML::Mini::Element's entity() method.

=cut




sub new {
	my $class = shift;
	my $name = shift;
	my $value = shift;
	 
	my $self = {};
	bless $self, ref $class || $class;
	
	$self->{'_attributes'} = {};
	$self->{'_numChildren'} = 0;
	$self->{'_numElementChildren'} = 0;
	$self->{'_children'} = [];
	$self->{'_avoidLoops'} = $XML::Mini::AvoidLoops;
	
	$self->name($name);
	
	my $oldAutoEscape = $XML::Mini::AutoEscapeEntities;
	$XML::Mini::AutoEscapeEntities = 0;
	$self->createNode($value) if (defined $value);
	$XML::Mini::AutoEscapeEntities = $oldAutoEscape;
	
	return $self;
}

sub toString {
	my $self = shift;
	my $depth = shift;
	
	my $spaces;
	if ($depth == $XML::Mini::NoWhiteSpaces)
	{
		$spaces = '';
	} else {
		$spaces = $self->_spaceStr($depth);
	}
	
	my $retString = "$spaces<!ENTITY " . $self->name();
	
	if (! $self->{'_numChildren'})
	{
		$retString .= ">\n";
		return $retString;
	}
	
	my $nextDepth = ($depth == $XML::Mini::NoWhiteSpaces) ? $XML::Mini::NoWhiteSpaces
									: $depth + 1;
	$retString .= '"';
	for (my $i=0; $i < $self->{'_numChildren'}; $i++)
	{
		
		$retString .= $self->{'_children'}->[$i]->toString($XML::Mini::NoWhiteSpaces);
		
	}
	$retString .= '"';
	#$retString =~ s/\n//g;
	
	$retString .= " >\n";
	
	return $retString;
}


sub toStringNoWhiteSpaces {
	my $self = shift;
	my $depth = shift;
	
	return $self->toString($depth);
	
}



=head1 AUTHOR

LICENSE

    XML::Mini::Element::Entity module, part of the XML::Mini XML parser/generator package.
    Copyright (C) 2002 Patrick Deegan
    All rights reserved
    
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA


Official XML::Mini site: http://minixml.psychogenic.com

Contact page for author available at http://www.psychogenic.com/en/contact.shtml

=head1 SEE ALSO


XML::Mini, XML::Mini::Document, XML::Mini::Element

http://minixml.psychogenic.com

=cut



1;
