Help for this page
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}; };