/usr/share/doc/libmojolicious-perl/examples/entities.pl is in libmojolicious-perl 7.59+dfsg-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 | use Mojo::Base -strict;
use Mojo::UserAgent;
# Extract named character references from HTML Living Standard
my $res = Mojo::UserAgent->new->get('https://html.spec.whatwg.org')->result;
for my $row ($res->dom('#named-character-references-table tbody > tr')->each) {
my $entity = $row->at('td > code')->text;
my $codepoints = $row->children('td')->[1]->text;
say "$entity $codepoints";
}
1;
|