26 lines
813 B
Perl
26 lines
813 B
Perl
package SOAP::Lite::Deserializer::XMLSchemaSOAP1_2;
|
|
use strict;
|
|
use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1;
|
|
|
|
sub anyTypeValue { 'anyType' }
|
|
|
|
sub as_boolean; *as_boolean = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_1::as_boolean;
|
|
sub as_base64 { shift; require MIME::Base64; MIME::Base64::decode_base64(shift) }
|
|
|
|
BEGIN {
|
|
no strict 'refs';
|
|
for my $method (qw(
|
|
anyType
|
|
string float double decimal dateTime timePeriod gMonth gYearMonth gYear
|
|
century gMonthDay gDay duration recurringDuration anyURI
|
|
language integer nonPositiveInteger negativeInteger long int short byte
|
|
nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte
|
|
positiveInteger date time
|
|
)) {
|
|
my $name = 'as_' . $method;
|
|
*$name = sub { $_[1] };
|
|
}
|
|
}
|
|
|
|
1;
|