/usr/share/doc/libxml-writer-string-perl/examples/eg.pl is in libxml-writer-string-perl 0.1-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 | #!/usr/bin/perl
use warnings;
use strict;
use XML::Writer;
use XML::Writer::String;
my $s = XML::Writer::String->new();
my $writer = new XML::Writer( OUTPUT => $s,
DATA_MODE => 1, DATA_INDENT => 4);
$writer->xmlDecl();
$writer->startTag('module', name=>'XML::Writer::String');
$writer->dataElement('abstract', 'Capture output from XML::Writer');
$writer->dataElement('author', 'S. Oliver <simon.oliver@umist.ac.uk>');
$writer->endTag();
$writer->end();
print $s->value();
|