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

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

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

revision 1.23 by wakaba, Sun Jul 29 11:38:57 2007 UTC revision 1.24 by wakaba, Mon Sep 24 10:16:14 2007 UTC
# Line 3  Line 3 
3  package Message::DOM::Element;  package Message::DOM::Element;
4  use strict;  use strict;
5  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
6  push our @ISA, 'Message::DOM::Node', 'Message::IF::Element';  push our @ISA, 'Message::DOM::Node', 'Message::IF::Element',
7        'Message::IF::ElementSelector'; # MUST in Selectors API spec.
8  require Message::DOM::Document;  require Message::DOM::Document;
9    
10  sub ____new ($$$$$) {  sub ____new ($$$$$) {
# Line 57  sub AUTOLOAD { Line 58  sub AUTOLOAD {
58        }        }
59      };      };
60      goto &{ $AUTOLOAD };      goto &{ $AUTOLOAD };
61      } elsif (my $module_name = {
62        query_selector => 'Message::DOM::SelectorsAPI',
63        query_selector_all => 'Message::DOM::SelectorsAPI',
64      }->{$method_name}) {
65        eval qq{ require $module_name } or die $@;
66        goto &{ $AUTOLOAD };
67    } else {    } else {
68      require Carp;      require Carp;
69      Carp::croak (qq<Can't locate method "$AUTOLOAD">);      Carp::croak (qq<Can't locate method "$AUTOLOAD">);
# Line 821  sub set_id_attribute_node ($$$$) { Line 828  sub set_id_attribute_node ($$$$) {
828  } # set_id_attribute_node  } # set_id_attribute_node
829    
830  package Message::IF::Element;  package Message::IF::Element;
831    package Message::IF::ElementSelector;
832    
833  package Message::DOM::Document;  package Message::DOM::Document;
834    
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24