File Coverage

blib/lib/XML/Mini/TreeComponent.pm

Criterion	Covered	Total	%
statement	24	44	54.5
branch	2	6	33.3
condition	0	8	0.0
subroutine	7	12	58.3
pod	3	7	42.8
total	36	77	46.7

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

use Data::Dumper;
use XML::Mini;

use vars qw ( $VERSION );
$VERSION = '1.28';

sub new
{
    my $class = shift;
    my $self = {};
    bless $self, ref $class || $class;
    return $self;
}

sub name
{
    my $self = shift;
    my $setTo = shift; # optionally set
    return undef;
}

sub getElement
{
    my $self = shift;
    my $name = shift;
    return undef;
}

sub getValue
{
    my $self = shift;
    return undef;
}

sub parent
{
    my $self = shift;
    my $newParent = shift; # optionally set

    if ($newParent)
    {
	my $ownType = ref $self;
	my $type = ref $newParent;
	if ($type && $type =~ /^$ownType/)
	{
	    $self->{'_parent'} = $newParent;
	} else {
	    return XML::Mini->Error("XML::MiniTreeComponent::parent(): Must pass an instance derived from "
				    . "XML::MiniTreeComponent to set.");
	}
    }
    return $self->{'_parent'};
}

sub toString
{
    my $self = shift;
    my $depth = shift || 0;
    return undef;
}

sub dump
{
    my $self = shift;
    return Dumper($self);
}

sub _spaceStr
{
    my $self = shift;
    my $numSpaces = shift;
    my $retStr = '';
    if ($numSpaces)
    {
	$retStr = ' ' x $numSpaces;
    }
    return $retStr;
}

1;

__END__