File Coverage

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

Criterion	Covered	Total	%
statement	34	46	73.9
branch	3	8	37.5
condition	1	3	33.3
subroutine	6	7	85.7
pod	2	3	66.6
total	46	67	68.6

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

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

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

sub new
{
    my $class = 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('!--');
    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 = "$spaces\n";
	return $retString;
    }

    my $nextDepth = $depth + 1;

    for (my $i=0; $i < $self->{'_numChildren'}; $i++)
    {
	$retString .= $self->{'_children'}->[$i]->toString($nextDepth);
    }

    $retString .= "\n" unless ($retString =~ m|\n$|sm);
    $retString .= "$spaces -->\n";
    return $retString;
}


sub toStringNoWhiteSpaces
{
    my $self = shift;

    my $retString = '';
	return $retString;
    }

    for (my $i=0; $i < $self->{'_numChildren'}; $i++)
    {
	$retString .= $self->{'_children'}->[$i]->toStringNoWhiteSpaces();
    }

    $retString .= " -->";
    return $retString;
}

1;

__END__