typelookup => {
  base64 => [10, sub {$_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/}, 'as_base64'],
  int => [20, sub {$_[0] =~ /^[+-]?\d+$/}, 'as_int'],
  double => [30, sub {$_[0] =~ /^(-?(?:\d+(?:\.\d*)?|\.\d+)|([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)$/}, 'as_double'],
  dateTime => [35, sub {$_[0] =~ /^\d{8}T\d\d:\d\d:\d\d$/}, 'as_dateTime'],
  string => [40, sub {1}, 'as_string'],
},

##</code><code>##

sub initialize {
  my $self = shift;

  my $config = {XMLRPC::Server::initialize(@_)};
  my $typelookup = $$config{serializer}->typelookup();

  # adjust the definition for base64 data, skip over any scalars with the utf8 property set
  $typelookup->{base64} = [10, sub {$_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/ && !utf8::is_utf8($_[0])}, 'as_base64'];

  return %{$config};
};