1package SOAP::Lite::Deserializer::XMLSchema2001; 2 3use strict; 4use SOAP::Lite::Deserializer::XMLSchema1999; 5use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1; 6use SOAP::Lite::Deserializer::XMLSchemaSOAP1_2; 7 8sub anyTypeValue { 'anyType' } 9sub as_string; *as_string = \&SOAP::Lite::Deserializer::XMLSchema1999::as_string; 10sub as_anyURI; *as_anyURI = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_1::as_anyURI; 11sub as_boolean; *as_boolean = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_2::as_boolean; 12sub as_base64Binary; *as_base64Binary = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_2::as_base64; 13sub as_hexBinary; *as_hexBinary = \&SOAP::Lite::Deserializer::XMLSchema1999::as_hex; 14sub as_undef; *as_undef = \&SOAP::Lite::Deserializer::XMLSchema1999::as_undef; 15 16BEGIN { 17 no strict 'refs'; 18 for my $method (qw( 19 anyType anySimpleType 20 float double decimal dateTime timePeriod gMonth gYearMonth gYear 21 century gMonthDay gDay duration recurringDuration 22 language integer nonPositiveInteger negativeInteger long int short 23 byte nonNegativeInteger unsignedLong unsignedInt unsignedShort 24 unsignedByte positiveInteger date time dateTime 25 QName 26 )) { 27 my $name = 'as_' . $method; 28 *$name = sub { $_[1] } 29 } 30} 31 321; 33