File Coverage

blib/lib/XML/XPath/Diver.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package XML::XPath::Diver;
use 5.008005;
use strict;
use warnings;
use parent 'XML::XPath';
use XML::XPath::XMLParser;
use Class::Builtin ();

our $VERSION = "0.02";

sub dive {
    my ($self, $xpath) = @_;
    my $nodeset = $self->find($xpath);
    my @nodes = map {__PACKAGE__->new(xml => XML::XPath::XMLParser::as_string($_))} $nodeset->get_nodelist;
    wantarray ? @nodes : Class::Builtin->can('OO')->([@nodes]);
}

sub attr {
    my ($self, $attr_name) = @_;
    my $nodeset = $self->find(sprintf('//@%s', $attr_name));
    my $node = $nodeset->shift;
    $node->getNodeValue;
}

sub text { shift->getNodeText(shift || '/')->value }

sub to_string {
    my $self = shift;
    my $nodeset = $self->find('/');
    XML::XPath::XMLParser::as_string($nodeset->shift);
}

1;
__END__