1package SOAP::Lite::Deserializer::XMLSchemaSOAP1_2;
2use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1;
3
4sub anyTypeValue { 'anyType' }
5
6sub as_boolean; *as_boolean = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_1::as_boolean;
7sub as_base64 { shift; require MIME::Base64; MIME::Base64::decode_base64(shift) }
8
9BEGIN {
10    no strict 'refs';
11    for my $method (qw(
12        anyType
13        string float double decimal dateTime timePeriod gMonth gYearMonth gYear
14        century gMonthDay gDay duration recurringDuration anyURI
15        language integer nonPositiveInteger negativeInteger long int short byte
16        nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte
17        positiveInteger date time dateTime
18    )) {
19        my $name = 'as_' . $method;
20        *$name = sub { $_[1] };
21    }
22}
23
241;