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

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

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

revision 1.26 by wakaba, Sat Dec 22 06:29:32 2007 UTC revision 1.29 by wakaba, Sun Feb 17 06:36:01 2008 UTC
# Line 39  sub AUTOLOAD { Line 39  sub AUTOLOAD {
39    
40    if ({    if ({
41      ## Read-only attributes (trivial accessors)      ## Read-only attributes (trivial accessors)
42        default_view => 1,
43      implementation => 1,      implementation => 1,
44    }->{$method_name}) {    }->{$method_name}) {
45      no strict 'refs';      no strict 'refs';
# Line 123  sub AUTOLOAD { Line 124  sub AUTOLOAD {
124      create_tree_walker => 'Message::DOM::TreeWalker',      create_tree_walker => 'Message::DOM::TreeWalker',
125      query_selector => 'Message::DOM::SelectorsAPI',      query_selector => 'Message::DOM::SelectorsAPI',
126      query_selector_all => 'Message::DOM::SelectorsAPI',      query_selector_all => 'Message::DOM::SelectorsAPI',
127        ___query_selector_all => 'Message::DOM::SelectorsAPI',
128    }->{$method_name}) {    }->{$method_name}) {
129      eval qq{ require $module_name } or die $@;      eval qq{ require $module_name } or die $@;
130      goto &{ $AUTOLOAD };      goto &{ $AUTOLOAD };
# Line 1083  sub manakai_create_serial_walker ($$;$$$ Line 1085  sub manakai_create_serial_walker ($$;$$$
1085    
1086  sub create_tree_walker ($$;$$$);  sub create_tree_walker ($$;$$$);
1087    
1088    ## |DocumentView| attribute
1089    
1090    sub default_view ($);
1091    
1092  ## |HTMLDocument| attributes  ## |HTMLDocument| attributes
1093    
1094  sub compat_mode ($) {  sub compat_mode ($) {
# Line 1107  sub manakai_compat_mode ($;$) { Line 1113  sub manakai_compat_mode ($;$) {
1113    }    }
1114  } # manakai_compat_mode  } # manakai_compat_mode
1115    
1116    ## TODO: documentation
1117    sub manakai_head ($) {
1118      local $Error::Depth = $Error::Depth + 1;
1119      my $html = $_[0]->manakai_html;
1120      return undef unless defined $html;
1121      for my $el (@{$html->child_nodes}) {
1122        next unless $el->node_type == 1; # ELEMENT_NODE
1123        my $nsuri = $el->namespace_uri;
1124        next unless defined $nsuri;
1125        next unless $nsuri eq q<http://www.w3.org/1999/xhtml>;
1126        next unless $el->manakai_local_name eq 'head';
1127        return $el;
1128      }
1129      return undef;
1130    } # manakai_head
1131    
1132    ## TODO: documentation
1133    sub manakai_html ($) {
1134      local $Error::Depth = $Error::Depth + 1;
1135      my $de = $_[0]->document_element;
1136      my $nsuri = $de->namespace_uri;
1137      if (defined $nsuri and $nsuri eq q<http://www.w3.org/1999/xhtml> and
1138          $de->manakai_local_name eq 'html') {
1139        return $de;
1140      } else {
1141        return undef;
1142      }
1143    } # manakai_html
1144    
1145  sub inner_html ($;$) {  sub inner_html ($;$) {
1146    my $self = $_[0];    my $self = $_[0];
1147    local $Error::Depth = $Error::Depth + 1;    local $Error::Depth = $Error::Depth + 1;
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.29
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24