/[suikacvs]/messaging/manakai/lib/Message/DOM/Text.pm
Suika

Diff of /messaging/manakai/lib/Message/DOM/Text.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by wakaba, Sat Jul 14 10:00:32 2007 UTC revision 1.9 by wakaba, Sat Jul 14 10:28:52 2007 UTC
# Line 108  sub split_text ($;$) { Line 108  sub split_text ($;$) {
108    return $r;    return $r;
109  } # split_text  } # split_text
110    
111    package Message::DOM::Text::CDATASection;
112    push our @ISA, 'Message::DOM::Text', 'Message::IF::CDATASection';
113    
114    ## |Node| attributes
115    
116    sub node_name () { '#cdata-section' }
117    
118    sub node_type () { 4 } # CDATA_SECTION_NODE
119    
120    ## |Text| attribute
121    
122    sub is_element_content_whitespace () { 0 }
123    
124  package Message::IF::Text;  package Message::IF::Text;
125    package Message::IF::CDATASection;
126    
127  package Message::DOM::Document;  package Message::DOM::Document;
128    
129    sub create_cdata_section ($$) {
130      return Message::DOM::Text::CDATASection->____new (@_[0, 1]);
131    } # create_cdata_section
132    
133  sub create_text_node ($$) {  sub create_text_node ($$) {
134    return Message::DOM::Text->____new ($_[0], $_[1]);    return Message::DOM::Text->____new ($_[0], $_[1]);
135  } # create_text_node  } # create_text_node
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24