Skip to content

Instantly share code, notes, and snippets.

@diegok

diegok/dom_dot.pl

Last active August 29, 2015 14:04
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 diegok/ab8997490fae7e3f304c to your computer and use it in GitHub Desktop.
Save diegok/ab8997490fae7e3f304c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dom_dot.pl
#!/usr/bin/env perl
use v5.10;
use Mojo::DOM;
my $dom = Mojo::DOM->new('<p id="my:id"></p><p id="my.id"></p>');
say $dom->at('#my\:id') ? 'Ok with :' : 'Broken with :';
say $dom->at('#my\.id') ? 'Ok with .' : 'Broken with .';
# Results with 5.24
# Ok with :
# Broken with .
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment