9023aa06a4
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.10 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.10.tar.gz
113 lines
2.9 KiB
Perl
113 lines
2.9 KiB
Perl
package SOAP::WSDL::XSD::Schema::Builtin;
|
|
use strict;
|
|
use warnings;
|
|
use Class::Std::Fast::Storable;
|
|
use SOAP::WSDL::XSD::Schema;
|
|
use SOAP::WSDL::XSD::Builtin;
|
|
use base qw(SOAP::WSDL::XSD::Schema);
|
|
|
|
use version; our $VERSION = qv('2.00.10');
|
|
|
|
# all builtin types - add validation (e.g. content restrictions) later...
|
|
my %BUILTINS = (
|
|
'anyType' => {},
|
|
'anySimpleType' => {},
|
|
'anyURI' => {},
|
|
'boolean' => {},
|
|
'base64Binary' => {},
|
|
'byte' => {},
|
|
'date' => {},
|
|
'dateTime' => {},
|
|
'decimal' => {},
|
|
'double' => {},
|
|
'duration' => {},
|
|
'ENTITY' => {},
|
|
'float' => {},
|
|
'gDay' => {},
|
|
'gMonth' => {},
|
|
'gMonthDay' => {},
|
|
'gYearMonth' => {},
|
|
'gYear' => {},
|
|
'hexBinary' => {},
|
|
'ID' => {},
|
|
'IDREF' => {},
|
|
'IDREFS' => {},
|
|
'int' => {},
|
|
'integer' => {},
|
|
'language' => {},
|
|
'long' => {},
|
|
'negativeInteger' => {},
|
|
'nonPositiveInteger' => {},
|
|
'nonNegativeInteger' => {},
|
|
'normalizedString' => {},
|
|
'Name' => {},
|
|
'NCName' => {},
|
|
'NMTOKEN' => {},
|
|
'NOTATION' => {},
|
|
'positiveInteger' => {},
|
|
'QName' => {},
|
|
'short' => {},
|
|
'string' => {},
|
|
'time' => {},
|
|
'token' => {},
|
|
'unsignedByte' => {},
|
|
'unsignedInt' => {},
|
|
'unsignedLong' => {},
|
|
'unsignedShort' => {},
|
|
);
|
|
|
|
sub START {
|
|
my $self = shift;
|
|
my @args = @_;
|
|
|
|
while (my ($name, $value) = each %BUILTINS )
|
|
{
|
|
$self->push_type( SOAP::WSDL::XSD::Builtin->new({
|
|
name => $name,
|
|
targetNamespace => 'http://www.w3.org/2001/XMLSchema',
|
|
xmlns => {
|
|
'#default' => 'http://www.w3.org/2001/XMLSchema',
|
|
}
|
|
} )
|
|
);
|
|
}
|
|
return $self;
|
|
}
|
|
|
|
1;
|
|
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
SOAP:WSDL::XSD::Schema::Builtin - Provides builtin XML Schema datatypes for parsing WSDL
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Used internally by SOAP::WSDL's WSDL parser.
|
|
|
|
See <SOAP::WSDL::XSD::Typelib::Builtin|SOAP::WSDL::XSD::Typelib::Builtin> for
|
|
SOAP::WSDL::XSD's builtin XML Schema datatypes.
|
|
|
|
=head1 LICENSE AND COPYRIGHT
|
|
|
|
Copyright (c) 2007 Martin Kutter. All rights reserved.
|
|
|
|
This file is part of SOAP-WSDL. You may distribute/modify it under
|
|
the same terms as perl itself
|
|
|
|
=head1 AUTHOR
|
|
|
|
Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|
|
|
=head1 REPOSITORY INFORMATION
|
|
|
|
$Rev: 851 $
|
|
$LastChangedBy: kutterma $
|
|
$Id: Builtin.pm 851 2009-05-15 22:45:18Z kutterma $
|
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
|
|
|
|
=cut
|
|
|