#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;
use XML::LibXSLT;
my $parser = XML::LibXML->new;
my $doc = $parser->parse_string(_xml());
my $style_doc = $parser->parse_string(_stylesheet());
my $xslt = XML::LibXSLT->new;
my $sheet = $xslt->parse_stylesheet($style_doc);
my $html = $sheet->transform($doc);
print $sheet->output_string($html);
sub _xml {
return <<' END_XML';
Available instances
END_XML
}
sub _stylesheet {
return <<' END_STYLE_SHEET';
<xsl:value-of select="/resources/description" />
|
|
END_STYLE_SHEET
}
__DATA__
Available instances