$sb->append(new_data_ele(SourceDBType => 'XML'))
   if !$sb->findnodes('XML')->size;

##</code><code>##

sub child_nodes {
   my %c = $_[0]('%');
   return
      map { ( my $t = $_ ) =~ s{/CONTENT\K}{}; [ $t => $c{$_} ] } 
         grep $_ ne 'CONTENT',
            keys %c;
}