File Coverage

blib/lib/SOAP/WSDL/XSD/Schema/Builtin.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 30 31 96.7


line stmt bran cond sub pod time code
1             package SOAP::WSDL::XSD::Schema::Builtin;
2 1     1   3 use strict;
  1         1  
  1         24  
3 1     1   3 use warnings;
  1         1  
  1         15  
4 1     1   2 use Class::Std::Fast::Storable;
  1         1  
  1         8  
5 1     1   120 use SOAP::WSDL::XSD::Schema;
  1         2  
  1         28  
6 1     1   285 use SOAP::WSDL::XSD::Builtin;
  1         1  
  1         60  
7 1     1   4 use base qw(SOAP::WSDL::XSD::Schema);
  1         1  
  1         183  
8              
9             our $VERSION = 3.003;
10              
11             # all builtin types - add validation (e.g. content restrictions) later...
12             my %BUILTINS = (
13             'anyType' => {},
14             'anySimpleType' => {},
15             'anyURI' => {},
16             'boolean' => {},
17             'base64Binary' => {},
18             'byte' => {},
19             'date' => {},
20             'dateTime' => {},
21             'decimal' => {},
22             'double' => {},
23             'duration' => {},
24             'ENTITY' => {},
25             'float' => {},
26             'gDay' => {},
27             'gMonth' => {},
28             'gMonthDay' => {},
29             'gYearMonth' => {},
30             'gYear' => {},
31             'hexBinary' => {},
32             'ID' => {},
33             'IDREF' => {},
34             'IDREFS' => {},
35             'int' => {},
36             'integer' => {},
37             'language' => {},
38             'long' => {},
39             'negativeInteger' => {},
40             'nonPositiveInteger' => {},
41             'nonNegativeInteger' => {},
42             'normalizedString' => {},
43             'Name' => {},
44             'NCName' => {},
45             'NMTOKEN' => {},
46             'NOTATION' => {},
47             'positiveInteger' => {},
48             'QName' => {},
49             'short' => {},
50             'string' => {},
51             'time' => {},
52             'token' => {},
53             'unsignedByte' => {},
54             'unsignedInt' => {},
55             'unsignedLong' => {},
56             'unsignedShort' => {},
57             );
58              
59             sub START {
60 1     1 0 3 my $self = shift;
61 1         2 my @args = @_;
62              
63 1         5 while (my ($name, $value) = each %BUILTINS )
64             {
65 44         327 $self->push_type( SOAP::WSDL::XSD::Builtin->new({
66             name => $name,
67             targetNamespace => 'http://www.w3.org/2001/XMLSchema',
68             xmlns => {
69             '#default' => 'http://www.w3.org/2001/XMLSchema',
70             }
71             } )
72             );
73             }
74 1         8 return $self;
75             }
76              
77             1;
78              
79              
80             =pod
81              
82             =head1 NAME
83              
84             SOAP:WSDL::XSD::Schema::Builtin - Provides builtin XML Schema datatypes for parsing WSDL
85              
86             =head1 DESCRIPTION
87              
88             Used internally by SOAP::WSDL's WSDL parser.
89              
90             See for
91             SOAP::WSDL::XSD's builtin XML Schema datatypes.
92              
93             =head1 LICENSE AND COPYRIGHT
94              
95             Copyright (c) 2007 Martin Kutter. All rights reserved.
96              
97             This file is part of SOAP-WSDL. You may distribute/modify it under
98             the same terms as perl itself
99              
100             =head1 AUTHOR
101              
102             Martin Kutter Emartin.kutter fen-net.deE
103              
104             =head1 REPOSITORY INFORMATION
105              
106             $Rev: 851 $
107             $LastChangedBy: kutterma $
108             $Id: Builtin.pm 851 2009-05-15 22:45:18Z kutterma $
109             $HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
110              
111             =cut
112