Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
XMLSchema1999.pm	1.22 KB	-rw-rw-rw-	2018-05-15 00:35
XMLSchema2001.pm	1.26 KB	-rw-rw-rw-	2018-05-15 00:35
XMLSchemaSOAP1_1.pm	953 B	-rw-rw-rw-	2018-05-15 00:35
XMLSchemaSOAP1_2.pm	848 B	-rw-rw-rw-	2018-05-15 00:35

Rename

package SOAP::Lite::Deserializer::XMLSchema2001;

use strict;

our $VERSION = '1.27'; # VERSION

use SOAP::Lite::Deserializer::XMLSchema1999;
use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1;
use SOAP::Lite::Deserializer::XMLSchemaSOAP1_2;

sub anyTypeValue { 'anyType' }
sub as_string; *as_string = \&SOAP::Lite::Deserializer::XMLSchema1999::as_string;
sub as_anyURI; *as_anyURI = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_1::as_anyURI;
sub as_boolean; *as_boolean = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_2::as_boolean;
sub as_base64Binary; *as_base64Binary = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_2::as_base64;
sub as_hexBinary; *as_hexBinary = \&SOAP::Lite::Deserializer::XMLSchema1999::as_hex;
sub as_undef; *as_undef = \&SOAP::Lite::Deserializer::XMLSchema1999::as_undef;

BEGIN {
    no strict 'refs';
    for my $method (qw(
        anyType anySimpleType
        float double decimal dateTime timePeriod gMonth gYearMonth gYear
        century gMonthDay gDay duration recurringDuration
        language integer nonPositiveInteger negativeInteger long int short
        byte nonNegativeInteger unsignedLong unsignedInt unsignedShort
        unsignedByte positiveInteger date time QName
    )) {
        my $name = 'as_' . $method;
        *$name = sub { $_[1] }
    }
}