File Coverage

lib/YAX/Constants.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package YAX::Constants;
2              
3 3     3   14 use strict;
  3         4  
  3         84  
4 3     3   16 use base qw/Exporter/;
  3         5  
  3         960  
5              
6             our @NODE_TYPES = qw(
7             &ELEMENT_NODE
8             &ATTRIBUTE_NODE
9             &TEXT_NODE
10             &CDATA_SECTION_NODE
11             &ENTITY_REFERENCE_NODE
12             &ENTITY_NODE
13             &PROCESSING_INSTRUCTION_NODE
14             &COMMENT_NODE
15             &DOCUMENT_NODE
16             &DOCUMENT_TYPE_NODE
17             &DOCUMENT_FRAGMENT_NODE
18             &NOTATION_NODE
19             );
20              
21             sub ELEMENT_NODE () { 1 }
22             sub ATTRIBUTE_NODE () { 2 }
23             sub TEXT_NODE () { 3 }
24             sub CDATA_SECTION_NODE () { 4 }
25             sub ENTITY_REFERENCE_NODE () { 5 }
26             sub ENTITY_NODE () { 6 }
27             sub PROCESSING_INSTRUCTION_NODE () { 7 }
28             sub COMMENT_NODE () { 8 }
29             sub DOCUMENT_NODE () { 9 }
30             sub DOCUMENT_TYPE_NODE () { 10 }
31             sub DOCUMENT_FRAGMENT_NODE () { 11 }
32             sub NOTATION_NODE () { 12 }
33              
34             our @EXPORT_OK = @NODE_TYPES;
35              
36             our %EXPORT_TAGS = ( all => \@EXPORT_OK );
37              
38             1;
39             __END__