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

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

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

revision 1.10 by wakaba, Sat Jul 14 16:32:28 2007 UTC revision 1.11 by wakaba, Sun Jul 29 03:49:00 2007 UTC
# Line 29  sub AUTOLOAD { Line 29  sub AUTOLOAD {
29    } elsif ({    } elsif ({
30      ## Read-write attributes (DOMString, trivial accessors)      ## Read-write attributes (DOMString, trivial accessors)
31      manakai_base_uri => 1,      manakai_base_uri => 1,
     data => 1,  
32    }->{$method_name}) {    }->{$method_name}) {
33      no strict 'refs';      no strict 'refs';
34      eval qq{      eval qq{
# Line 133  sub replace_child ($$) { Line 132  sub replace_child ($$) {
132    
133  sub manakai_base_uri ($;$);  sub manakai_base_uri ($;$);
134    
135  sub data ($;$);  sub data ($;$) {
136      if (@_ > 1) {
137        if (${${$_[0]}->{owner_document}}->{strict_error_checking} and
138            ${$_[0]}->{manakai_read_only}) {
139          report Message::DOM::DOMException
140              -object => $_[0],
141              -type => 'NO_MODIFICATION_ALLOWED_ERR',
142              -subtype => 'READ_ONLY_NODE_ERR';
143        }
144        
145        if (defined $_[1]) {
146          ${$_[0]}->{data} = ''.$_[1];
147        } else {
148          ${$_[0]}->{data} = '';
149        }
150      }
151    
152      return ${$_[0]}->{data};
153    } # data
154    
155  sub target ($);  sub target ($);
156    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24