Skip to content

Instantly share code, notes, and snippets.

@yko

yko/mojo-dom.pl

Created December 17, 2010 12:21
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yko/744854 to your computer and use it in GitHub Desktop.
Save yko/744854 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mojo-dom.pl
use strict;
use warnings;
use Test::More;
use Mojo::DOM;
plan tests => 3;
my $dom = Mojo::DOM->new->parse(<<END);
<syn:syntax xmlns:syn="http://xxx/">
<syn:Identifier>&lt;</syn:Identifier>
</syn:syntax>'
END
isa_ok $dom, 'Mojo::DOM';
is scalar @{$dom->children}, 1;
isa_ok $dom->at('syn'), 'Mojo::DOM';
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment