File Coverage

blib/lib/XML/Validator/Schema/ComplexTypeNode.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package XML::Validator::Schema::ComplexTypeNode;
2 5     5   29 use strict;
  5         9  
  5         157  
3 5     5   27 use warnings;
  5         10  
  5         136  
4              
5 5     5   25 use base 'XML::Validator::Schema::ElementNode';
  5         16  
  5         760  
6              
7             =head1 NAME
8              
9             XML::Validator::Schema::ComplexTypeNode
10              
11             =head1 DESCRIPTION
12              
13             This is an internal module used by XML::Validator::Schema to represent
14             complexType nodes derived from XML Schema documents.
15              
16             =cut
17              
18             sub compile {
19 0     0 0   my ($self) = shift;
20 0           $self->SUPER::compile();
21              
22             # register in the library if this is a named type
23 0 0         $self->root->{type_library}->add(name => $self->{name},
24             obj => $self)
25             if $self->{name};
26             }
27              
28             1;