File Coverage

lib/Kite/XML/Node/Kite.pm
Criterion Covered Total %
statement 54 54 100.0
branch n/a
condition n/a
subroutine 18 18 100.0
pod n/a
total 72 72 100.0


line stmt bran cond sub pod time code
1             #============================================================= -*-perl-*-
2             #
3             # Kite::XML::Node::Kite
4             #
5             # DESCRIPTION
6             # XML node representing a kite made of many parts.
7             #
8             # AUTHOR
9             # Andy Wardley
10             #
11             # COPYRIGHT
12             # Copyright (C) 2000 Andy Wardley. All Rights Reserved.
13             #
14             # This module is free software; you can redistribute it and/or
15             # modify it under the same terms as Perl itself.
16             #
17             # VERSION
18             # $Id: Kite.pm,v 1.2 2000/10/17 12:19:28 abw Exp $
19             #
20             #========================================================================
21            
22             package Kite::XML::Node::Kite;
23              
24             require 5.004;
25              
26 2     2   4512 use strict;
  2         4  
  2         57  
27 2     2   931 use Kite::XML::Node;
  2         6  
  2         68  
28 2     2   10 use base qw( Kite::XML::Node );
  2         4  
  2         246  
29 2     2   11 use vars qw( $ATTRIBUTES $ELEMENTS $VERSION $ERROR $AUTOLOAD );
  2         4  
  2         296  
30              
31             $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
32             $ERROR = '';
33             $ATTRIBUTES = {
34             name => '',
35             title => '',
36             };
37             $ELEMENTS = {
38             part => 'Kite::XML::Node::Part+',
39             };
40              
41              
42             #------------------------------------------------------------------------
43             package Kite::XML::Node::Part;
44              
45 2     2   12 use base qw( Kite::XML::Node );
  2         3  
  2         154  
46 2     2   10 use vars qw( $ERROR $ATTRIBUTES $ELEMENTS );
  2         3  
  2         216  
47              
48             $ERROR = '';
49             $ATTRIBUTES = {
50             name => undef,
51             };
52             $ELEMENTS = {
53             outline => 'Kite::XML::Node::Outline',
54             markup => 'Kite::XML::Node::Markup',
55             layout => 'Kite::XML::Node::Layout',
56             };
57              
58              
59             #------------------------------------------------------------------------
60             package Kite::XML::Node::Outline;
61              
62 2     2   10 use base qw( Kite::XML::Node );
  2         5  
  2         205  
63 2     2   12 use vars qw( $ERROR $ELEMENTS );
  2         4  
  2         170  
64              
65             $ERROR = '';
66             $ELEMENTS = {
67             curve => 'Kite::XML::Node::Curve+',
68             };
69              
70             #------------------------------------------------------------------------
71             package Kite::XML::Node::Markup;
72              
73 2     2   11 use base qw( Kite::XML::Node );
  2         3  
  2         154  
74 2     2   11 use vars qw( $ERROR $ELEMENTS );
  2         4  
  2         258  
75              
76             $ERROR = '';
77             $ELEMENTS = {
78             curve => 'Kite::XML::Node::Curve+',
79             };
80              
81              
82             #------------------------------------------------------------------------
83             package Kite::XML::Node::Layout;
84              
85 2     2   18 use base qw( Kite::XML::Node );
  2         5  
  2         138  
86 2     2   9 use vars qw( $ERROR $ATTRIBUTES );
  2         4  
  2         253  
87              
88             $ERROR = '';
89             $ATTRIBUTES = {
90             x => undef,
91             y => undef,
92             angle => 0,
93             };
94              
95              
96             #------------------------------------------------------------------------
97             package Kite::XML::Node::Curve;
98              
99 2     2   10 use base qw( Kite::XML::Node );
  2         3  
  2         156  
100 2     2   16 use vars qw( $ERROR $ATTRIBUTES $ELEMENTS @OPTIONAL );
  2         46  
  2         188  
101              
102             $ERROR = '';
103             $ATTRIBUTES = {
104             linetype => 'normal',
105             };
106             $ELEMENTS = {
107             point => 'Kite::XML::Node::Point+',
108             text => 'Kite::XML::Node::Text+',
109             };
110              
111              
112             #------------------------------------------------------------------------
113             package Kite::XML::Node::Point;
114              
115 2     2   10 use base qw( Kite::XML::Node );
  2         3  
  2         135  
116 2     2   9 use vars qw( $ERROR $ATTRIBUTES );
  2         3  
  2         123  
117              
118             $ERROR = '';
119             $ATTRIBUTES = {
120             x => undef,
121             y => undef,
122             };
123              
124              
125             #------------------------------------------------------------------------
126             package Kite::XML::Node::Text;
127              
128 2     2   8 use base qw( Kite::XML::Node );
  2         4  
  2         150  
129 2     2   8 use vars qw( $ERROR $ATTRIBUTES $ELEMENTS @OPTIONAL );
  2         3  
  2         195  
130              
131             $ERROR = '';
132             $ATTRIBUTES = {
133             font => '',
134             size => '',
135             };
136             $ELEMENTS = {
137             CDATA => 1,
138             };
139              
140              
141             1;
142              
143             __END__