File Coverage

blib/lib/XML/TinyXML/Selector/XPath/Axes.pm

Criterion	Covered	Total	%
statement	75	79	94.9
branch	20	30	66.6
condition			n/a
subroutine	12	13	92.3
pod	0	10	0.0
total	107	132	81.0

package XML::TinyXML::Selector::XPath::Axes;

use strict;
use warnings;
use XML::TinyXML::NodeAttribute;

our $VERSION = "0.34";

sub child {
    my ($class, $context) = @_;
    my @res = map { $_->children } grep { defined } @{$context->items};
    return wantarray?@res:\@res;
}

sub descendant {
    my ($class, $context) = @_;
    my @res = map { $_->children } @{$context->items};
    if (@res) {
        my $newctx = XML::TinyXML::Selector::XPath::Context->new($context->xml);
        $newctx->{items} = \@res;
        push (@res, descendant($class, $newctx));
    }
    return wantarray?@res:\@res;
}

sub parent {
    my ($class, $context) = @_;
    my @res = map { $_->parent } grep { defined } @{$context->items};
    return wantarray?@res:\@res;
}

sub ancestor {
    my ($class, $context) = @_;
    my @res;
    foreach my $node (@{$context->items}) {
        my $parent = $node->parent;
        push(@res, $parent)
           if($parent);
    }

    if (@res) {
        my $newctx = XML::TinyXML::Selector::XPath::Context->new($context->xml);
        $newctx->{items} = \@res;
        my @new = ancestor($class, $newctx);
        push (@res, @new)
            if (@new);
    }
    return wantarray?@res:\@res;
}

sub following_sibling {
    my ($class, $context) = @_;
    my @res;
    foreach my $node (@{$context->items}) {
        while ($node) {
            my $next = $node->nextSibling;
            push (@res, $next) if $next;
            $node = $next;
        }
    }
    return wantarray?@res:\@res;
}

sub preceding_sibling {
    my ($class, $context) = @_;
    my @res;
    foreach my $node (@{$context->items}) {
        while ($node) {
            my $prev = $node->prevSibling;
            push (@res, $prev) if $prev;
            $node = $prev;
        }
    }
    return wantarray?@res:\@res;
}

sub attribute {
    my ($class, $context) = @_;
    my @res =  map { $_->getAttributes } grep { defined } @{$context->items};
    return wantarray?@res:\@res;
}

sub self {
    my ($class, $context) = @_;
    return @{$context->items};
}

sub descendant_or_self {
    my ($class, $context) = @_;
    my @res = descendant($class, $context);
    foreach my $node (@{$context->items}) {
        push (@res, $node);
    }
    return wantarray?@res:\@res;
}

sub ancestor_or_self {
    my ($class, $context) = @_;
    my @res = ancestor($context);
    unshift(@res, $context->{node});
    return wantarray?@res:\@res;
}


1;