Select Code to Download

my $attributes = $sibling_element->atts();
$attributes->{'#CDATA'} = 1;
...

# '#CDATA' attribute is undefined here
my $elt2 = XML::Twig::Elt->new('missing', $attributes, 'This is not in
+ CDATA');

perl -v

This is perl 5, version 26, subversion 0 (v5.26.0) built for MSWin32-x
+64-multi-thread

#!/usr/bin/perl
use 5.026;
...
  <key order='09'><![CDATA[Nine apathetic, sympathetic, diabetic old m
+en on roller skates, with a marked propensity towards procrastination
+ and sloth]]></key>
  <key order='10'><![CDATA[Ten lyrical, spherical, diabolical denizens
+ of the deep who stalk about the corners of the cove all at the same 
+time.]]></key>
</keys>

<?xml version="1.0" encoding="utf-8"?>
<keys>
...
  <uc_key order="10"><![CDATA[TEN LYRICAL, SPHERICAL, DIABOLICAL DENIZ
+ENS OF THE DEEP WHO STALK ABOUT THE CORNERS OF THE COVE ALL AT THE SA
+ME TIME.]]></uc_key>
  <lc_key order="10"><![CDATA[ten lyrical, spherical, diabolical deniz
+ens of the deep who stalk about the corners of the cove all at the sa
+me time.]]></lc_key>
</keys>

<?xml version="1.0" encoding="utf-8"?>
<keys>
...
  <uc_key order="10">TEN LYRICAL, SPHERICAL, DIABOLICAL DENIZENS OF TH
+E DEEP WHO STALK ABOUT THE CORNERS OF THE COVE ALL AT THE SAME TIME.<
+/uc_key>
  <lc_key order="10"><![CDATA[ten lyrical, spherical, diabolical deniz
+ens of the deep who stalk about the corners of the cove all at the sa
+me time.]]></lc_key>
</keys>