libsoap-lite-perl 1.26-1 / usr / share / perl5 / SOAP / Lite / Deserializer / XMLSchemaSOAP1_1.pm

package SOAP::Lite::Deserializer::XMLSchemaSOAP1_1;
use strict;

our $VERSION = '1.26'; # VERSION

sub anyTypeValue { 'ur-type' }

sub as_boolean {
    shift;
    my $value = shift;
    $value eq '1' || $value eq 'true'
        ? 1
        : $value eq '0' || $value eq 'false'
            ? 0
            : die "Wrong boolean value '$value'\n"
}

sub as_base64 { shift; require MIME::Base64; MIME::Base64::decode_base64(shift) }

sub as_ur_type { $_[1] }

sub as_anyURI { $_[1] }

BEGIN {
    no strict 'refs';
    for my $method (qw(
        string 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] } }
}

1;