File Coverage

blib/lib/XML/Elemental/Node.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	4	0.0
total	37	44	84.0

package XML::Elemental::Node;
use strict;

sub new { bless {}, $_[0]; }

sub root {
    my $e = shift;
    while ($e->{parent}) { $e = $e->{parent} }
    return $e;
}

sub ancestors {
    my $e = shift;
    my @a;
    while ($e->{parent}) {
        $e = $e->{parent};
        push @a, $e;
    }
    return @a;
}

sub in_element {
    my ($e, $a) = @_;
    while ($e->{parent}) {
        $e = $e->{parent};
        return 1 if $e == $a;
    }
    return 0;
}

sub DESTROY {
    my $self = shift;
    if ($self->{contents}) {
        for (@{$self->{contents}}) {
            $_->DESTROY if $_ && $_->isa('XML::Elemental::Node');
        }
    }
    %$self = ();    # safety first.
}

1;

__END__