%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/perl/mysql/lib/perl5/site_perl/5.8/SOAP/Lite/Deserializer/
Upload File :
Create Path :
Current File : //usr/local/perl/mysql/lib/perl5/site_perl/5.8/SOAP/Lite/Deserializer/XMLSchemaSOAP1_2.pm

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

our $VERSION = '1.27'; # VERSION

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;

Zerion Mini Shell 1.0