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;