From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ABW / XML-Schema-0.07 / lib / XML / Schema / Type.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
—
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

              
#============================================================= -*-perl-*-
#
# XML::Schema::Type.pm
#
# DESCRIPTION
#   Module implementing a base class for XML Schema datatypes.  This
#   is the ur-type, instantiated within a schema as the ever-present
#   anyType.
#
# AUTHOR
#   Andy Wardley <abw@kfs.org>
#
# COPYRIGHT
#   Copyright (C) 2001 Canon Research Centre Europe Ltd.
#   All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
# REVISION
#   $Id: Type.pm,v 1.1.1.1 2001/08/29 14:30:17 abw Exp $
#
#========================================================================
package XML::Schema::Type;
use strict;
use XML::Schema::Base;
use XML::Schema::Type::Simple;
use XML::Schema::Type::Complex;
use base qw( XML::Schema::Base );
use vars qw( $VERSION $DEBUG $ERROR @MANDATORY @OPTIONAL );
$VERSION = sprintf("%d.%02d", q$Revision: 1.1.1.1 $ =~ /(\d+)\.(\d+)/);
$DEBUG   = 0 unless defined $DEBUG;
$ERROR   = '';
@MANDATORY = qw( ); 
@OPTIONAL  = qw( name namespace base );
#------------------------------------------------------------------------
# init()
#------------------------------------------------------------------------
sub init {
    my ($self, $config) = @_;
    my ($name, $value);
    my ($mand, $option) 
        = @{ $self->_baseargs( qw( @MANDATORY %OPTIONAL ) ) };
    $self->_mandatory($mand, $config)
        || return if @$mand;
    $self->_optional($option, $config)
        || return;
    return $self;
}
#------------------------------------------------------------------------
# base()
# 
# Returns the value of the 'base' item, denoting a base class type.
#------------------------------------------------------------------------
sub base {
    my $self = shift;
    return $self->{ base };
}
#------------------------------------------------------------------------
# name()
# 
# Returns the type name.
#------------------------------------------------------------------------
sub name {
    my $self = shift;
    return $self->{ name };
}
#------------------------------------------------------------------------
# namespace()
# 
# Returns the type namespace.
#------------------------------------------------------------------------
sub namespace {
    my $self = shift;
    return $self->{ namespace };
}
1;
__END__
=head1 NAME
XML::Schema::Type - base class for XML Schema datatypes
=head1 SYNOPSIS
    package XML::Schema::Type::MyType;
    use base qw( XML::Schema::Type );
    package main;
    my $type = XML::Schema::Type::MyType->new(
        name      => 'MyTypeName',
        namespace => 'http://my.namespace.com/xyz',
    );
    print $type->name(), ", ", $type->namespace(), "\n";
=head1 DESCRIPTION
The XML::Schema::Type module is a base class for objects that 
represent XML Schema types.
=head1 AUTHOR
Andy Wardley E<lt>abw@kfs.orgE<gt>
=head1 VERSION
This is version $Revision: 1.1.1.1 $ of the XML::Schema::Type module,
distributed with version 0.1 of the XML::Schema module set.
=head1 COPYRIGHT
Copyright (C) 2001 Canon Research Centre Europe Ltd.  All Rights
Reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
See also L<XML::Schema>.