5
use Test::More qw(no_plan);
7
use_ok( 'XML::Bare', qw/xmlin/ );
9
my ( $ob, $root ) = XML::Bare->new( text => "<xml><ob><key>0</key><val>a</val></ob></xml>" );
11
my $node = $ob->find_node( $root->{'xml'}, 'ob', key => 0 );
13
ok( $node, 'Got something back' );
15
my $val = $node->{'val'}{'value'};
16
is( $val, 'a', 'Value Matches' );
b'\\ No newline at end of file'