File Coverage

lib/YAX/Node.pm

Criterion	Covered	Total	%
statement	37	59	62.7
branch	6	24	25.0
condition			n/a
subroutine	13	16	81.2
pod	8	11	72.7
total	64	110	58.1

package YAX::Node;

use strict;

use Scalar::Util qw/weaken refaddr/;

use YAX::Query;
use YAX::Constants qw/:all/;

use overload
    '""'   => \&as_string,
    '<=>'  => \&num_cmp,
    'bool' => \&as_bool,
    fallback => 1;

sub NAME () { 0 }
sub TYPE () { 1 }
sub TEXT () { 2 }
sub PRNT () { 3 }

sub new {
    my $class = shift;
    return bless \[ @_ ], $class;
}

sub name {
    my $self = shift;
    $$self->[NAME]
}
sub type {
    my $self = shift;
    $$self->[TYPE];
}
sub data {
    my $self = shift;
    $$self->[TEXT] = shift if @_;
    $$self->[TEXT];
}

sub parent {
    my $self = shift;
    weaken( $$self->[PRNT] = $_[0] ) if @_;
    $$self->[PRNT];
}

sub num_cmp {
    my ( $a, $b ) = @_;
    refaddr( $a ) <=> refaddr( $b );
}

sub next {
    my $self = shift;
    return undef unless $self->parent;
    return undef if $self->parent->[-1] == $self;
    for ( my $x = 0; $x < @{ $self->parent }; $x++ ) {
        if ( $self == $self->parent->[$x] ) {
            return $self->parent->[$x+1];
        }
    }
    return undef;
}

sub prev {
    my $self = shift;
    return undef unless $self->parent;
    return undef if $self->parent->[0] == $self;
    for ( my $x = 0; $x < @{ $self->parent }; $x++ ) {
        if ( $self == $self->parent->[$x] ) {
            return $self->parent->[$x-1];
        }
    }
    return undef;
}

sub document {
    my $self = shift;
    my $root = $self;
    while ( $root->parent ) {
        $root = $root->parent;
        return $root if $root->type == DOCUMENT_NODE;
    }
    return ( );
}

sub as_string {
    my $self = shift;
    if ( $self->type == COMMENT_NODE ) {
        return '';
    }
    if ( $self->type == CDATA_SECTION_NODE ) {
        return 'data.']]>';
    }
    if ( $self->type == PROCESSING_INSTRUCTION_NODE ) {
        return 'name.' '.$self->data.' ?>';
    }
}

# prevent stringification when in a boolean context
sub as_bool { 1 }

1;
__END__