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::XMLSchema1999;
use strict;

our $VERSION = '1.27'; # VERSION

use SOAP::Lite::Deserializer::XMLSchemaSOAP1_1;

sub anyTypeValue { 'ur-type' }

# use as_string and as_boolean from SOAP1_1 Deserializer

sub as_string; *as_string = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_1::as_string;
sub as_boolean; *as_boolean = \&SOAP::Lite::Deserializer::XMLSchemaSOAP1_1::as_boolean;

sub as_hex {
    shift;
    my $value = shift;
    $value =~ s/([a-zA-Z0-9]{2})/chr oct '0x'.$1/ge;
    $value
}

sub as_ur_type { $_[1] }

sub as_undef {
    shift;
    my $value = shift;
    $value eq '1' || $value eq 'true'
        ? 1
        : $value eq '0' || $value eq 'false'
            ? 0
            : die "Wrong null/nil value '$value'\n";
}

BEGIN {
    no strict 'refs';
    for my $method (qw(
        float double decimal timeDuration recurringDuration uriReference
        integer nonPositiveInteger negativeInteger long int short byte
        nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte
        positiveInteger timeInstant time timePeriod date month year century
        recurringDate recurringDay language
    )) {
        my $name = 'as_' . $method;
        *$name = sub { $_[1] };
    }
}