/usr/share/doc/libhtml-embedded-turtle-perl/examples/simple-example.pl is in libhtml-embedded-turtle-perl 0.404-1.
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 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | use 5.010;
use strict;
use HTML::Embedded::Turtle 0.200;
use Data::Dumper;
my $het = HTML::Embedded::Turtle->new(<<'MARKUP', 'http://example.net/');
<title property="http://purl.org/dc/terms/title">Test</title>
<link rel=meta href="#endorsed">
<script language=Turtle>
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
[] a foaf:Person ; foaf:name "Joe Bloggs" .
</script>
<script type="text/turtle" id=endorsed>
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
[] a foaf:Person ; foaf:name "Alice Smith" .
</script>
<script type="TEXT/TURTLE" id=unendorsed>
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
[] a foaf:Person ; foaf:name "Bob Smith" .
</script>
<p>Hello</p>
MARKUP
my $iter = $het->union_graph->get_statements(undef, undef, undef, undef);
while (my $st = $iter->next)
{
say $st->as_string;
}
say "############################";
say Dumper([ $het->endorsements ]);
|