File Coverage

blib/lib/XML/Mini/Element/Header.pm

Criterion	Covered	Total	%
statement	40	52	76.9
branch	4	8	50.0
condition	3	12	25.0
subroutine	6	7	85.7
pod	2	3	66.6
total	55	82	67.0

package XML::Mini::Element::Header;
use strict;
$^W = 1;

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

use vars qw ( $VERSION @ISA );
$VERSION = '1.02';
push @ISA, qw ( XML::Mini::Element );

sub new
{
    my $class = shift;
    my $name = shift || XML::Mini->Error("Must pass a NAME to XML::Mini::Element::Header::new()");

    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);
    return $self;
}

sub toString
{
    my $self = shift;
    my $depth = shift;

    if ($depth == $XML::Mini::NoWhiteSpaces)
    {
	return $self->toStringNoWhiteSpaces();
    }

    my $spaces = $self->_spaceStr($depth);

    my $retString = "$spacesname() ;

    my $attribString;

    # make sure version is always first
    if (exists $self->{'_attributes'}->{'version'})
    {
    	$attribString = ' version="' . $self->{'_attributes'}->{'version'} . '"';
	delete $self->{'_attributes'}->{'version'};
    }

    foreach my $atName (sort keys %{$self->{'_attributes'}})
    {
	$attribString .= qq| $atName="$self->{'_attributes'}->{$atName}"|;
    }

    if (defined $attribString && $attribString =~ m|\S|)
    {
    	$retString .= $attribString;
    }

    $retString =~ s/\s+$//;

    $retString .= "?>\n";
    return $retString;

}


sub toStringNoWhiteSpaces
{
    my $self = shift;

    my $retString = 'name();
    my $attribString;
    foreach my $atName (sort keys %{$self->{'_attributes'}})
    {
	$attribString .= qq|$atName="$self->{'_attributes'}->{$atName}" |;
    }
    if (defined $attribString && $attribString =~ m|\S|)
    {
    	$retString .= $attribString;
    }
    $retString =~ s/\s+$//;
    $retString .= "?>";
    return $retString;
}

1;

__END__