# these are completely untested!

sub XML::LibXML::Elemment::STORABLE_freeze {
   my $self = shift;
   $self->toString;
}

sub XML::LibXML::Elemment::STORABLE_thaw {
   my $class = shift;
   my (undef, $str) = @_;
   XML::LibXML->parse_xml(string => $str)->documentElement;
}