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
|
package XML::Mini::Element::CData;
use strict;
$^W = 1;
use XML::Mini;
use XML::Mini::Element;
use vars qw ( $VERSION @ISA );
$VERSION = '1.24';
push @ISA, qw ( XML::Mini::Element );
sub new
{
my $class = shift;
my $contents = shift;
my $self = {};
bless $self, ref $class || $class;
$self->{'_attributes'} = {};
$self->{'_numChildren'} = 0;
$self->{'_numElementChildren'} = 0;
$self->{'_children'} = [];
$self->{'_avoidLoops'} = $XML::Mini::AvoidLoops;
$self->name('CDATA');
my $oldAutoEscape = $XML::Mini::AutoEscapeEntities;
$XML::Mini::AutoEscapeEntities = 0;
$self->createNode($contents) if (defined $contents);
$XML::Mini::AutoEscapeEntities = $oldAutoEscape;
return $self;
}
sub toString
{
my $self = shift;
my $depth = shift;
my $spaces;
if ($depth == $XML::Mini::NoWhiteSpaces)
{
$spaces = '';
} else {
$spaces = $self->_spaceStr($depth);
}
my $retString = "$spaces<![CDATA[ ";
if (! $self->{'_numChildren'})
{
$retString .= "]]>\n";
return $retString;
}
my $nextDepth = ($depth == $XML::Mini::NoWhiteSpaces) ? $XML::Mini::NoWhiteSpaces
: $depth + 1;
for (my $i=0; $i < $self->{'_numChildren'}; $i++)
{
$retString .= $self->{'_children'}->[$i]->getValue();
}
$retString .= " ]]>\n";
return $retString;
}
sub toStringNoWhiteSpaces
{
my $self = shift;
my $depth = shift;
return $self->toString($depth);
}
1;
__END__
=head1 NAME
XML::Mini::Element::CData - represents CDATA blocks in XML::Mini parser
=head1 DESCRIPTION
The XML::Mini::Element::CData is used internally to represent <![CDATA [ CONTENTS ]]>.
You shouldn't need to use it directly, see XML::Mini::Element's cdata() method.
=head1 AUTHOR
LICENSE
XML::Mini::Element::CData module, part of the XML::Mini XML parser/generator package.
Copyright (C) 2002 Patrick Deegan
All rights reserved
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Official XML::Mini site: http://minixml.psychogenic.com
Contact page for author available at http://www.psychogenic.com/en/contact.shtml
=head1 SEE ALSO
XML::Mini, XML::Mini::Document, XML::Mini::Element
http://minixml.psychogenic.com
=cut
|
