File Coverage

blib/lib/XML/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::Diver;
use 5.008005;
use strict;
use warnings;
use parent 'XML::LibXML::XPathContext';
use XML::LibXML;
use Class::Builtin ();

our $VERSION = "0.01";

sub load_xml {
    my ($class, %opts) = @_;
    my $node = XML::LibXML->load_xml(%opts);
    $class->new($node);
}

sub dive {
    my ($self, $xpath) = @_;
    my $nodeset = $self->find($xpath);
    my @nodes = map {__PACKAGE__->load_xml(string => $_->toStringC14N)} $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->value;
}

sub text { shift->findvalue('/') }

sub to_string {
    my $self = shift;
    my $nodeset = $self->find('/');
    $nodeset->shift->toStringC14N;
}

1;
__END__