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
|
package XML::Validator::Schema::ComplexTypeNode;
use strict;
use warnings;
use base 'XML::Validator::Schema::ElementNode';
=head1 NAME
XML::Validator::Schema::ComplexTypeNode - complex types from xml schemas (internal module)
=head1 DESCRIPTION
This is an internal module used by XML::Validator::Schema to represent
complexType nodes derived from XML Schema documents.
=cut
sub compile {
my ($self) = shift;
$self->SUPER::compile();
# register in the library if this is a named type
$self->root->{type_library}->add(name => $self->{name},
obj => $self)
if $self->{name};
}
1;
|
