1252 |
my $serializer = $lsimpl->create_mls_serializer |
my $serializer = $lsimpl->create_mls_serializer |
1253 |
({ExpandedURI q<DOMLS:SerializeDocumentInstance> => ''}); |
({ExpandedURI q<DOMLS:SerializeDocumentInstance> => ''}); |
1254 |
my $serialized = $serializer->write_to_string ($doc); |
my $serialized = $serializer->write_to_string ($doc); |
1255 |
print STDOUT Encode::encode ('utf8', $serialized); |
verbose_msg_ qq< serialized, >; |
1256 |
|
my $encoded = Encode::encode ('utf8', $serialized); |
1257 |
|
verbose_msg_ qq<bytenized, and >; |
1258 |
|
print STDOUT $encoded; |
1259 |
close STDOUT; |
close STDOUT; |
1260 |
status_msg qq<done>; |
status_msg qq<done>; |
1261 |
} |
} |