view release on metacpan or  search on metacpan

scripts/mkxmlwritersimple  view on Meta::CPAN

use warnings;

use XML::DT;

my $xmlfile = shift;

die "No file supplied\n" unless $xmlfile && -f $xmlfile;

my %tags;
my $code = dt( $xmlfile,
               -pcdata => sub {
                   return "" if $c =~ m/^[\s\n\r]+$/;
                   $c =~ s/"/\\"/g;
                   $c =~ s/\$/\\\$/g;
                   '"' . $c . '",';
               },
               -default => sub {
                   if ($q =~ /[.:]/) {
                       my $otag = "<$q";
                       if (%v) {
                           for my $key (keys %v) {