Select Code to Download

#!/usr/bin/perl -w

...
#attempt to insert DocumentFragment into Document
eval {$doc->appendChild ($par->ownerDocument ());};
is ($@, '', 'insert Document Fragment: OK');