Select Code to Download

typelookup => {
  base64 => [10, sub {$_[0] =~ /[^\x09\x0a\x0d\x20-\x7f]/}, 'as_base64
+'],
...
  dateTime => [35, sub {$_[0] =~ /^\d{8}T\d\d:\d\d:\d\d$/}, 'as_dateTi
+me'],
  string => [40, sub {1}, 'as_string'],
},

sub initialize {
  my $self = shift;
...

  return %{$config};
};