<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
use XML::DT ;
my $filename = shift;

%handler=(
    '-default'   =&gt; sub{$c},
     -type =&gt; { l =&gt; SEQH },
#     'a1' =&gt; sub{ }, # 2 occurrences; attributes: id
#     'a2' =&gt; sub{ }, # 1 occurrences; attributes: id
#     'a3' =&gt; sub{ }, # 1 occurrences; attributes: id
#     'a4' =&gt; sub{ }, # 1 occurrences; attributes: id
     'l' =&gt; sub{ $c = [sort {$a-&gt;{id} cmp $b-&gt;{id} } @$c ]; toxml }, # 1 occurrences;
);
print dt($filename,%handler);
</pre></body></html>