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

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

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

revision 1.1 by wakaba, Sat Jul 7 05:58:11 2007 UTC revision 1.2 by wakaba, Sat Jul 7 09:11:05 2007 UTC
# Line 9  $Message::DOM::DOMImplementationRegistry Line 9  $Message::DOM::DOMImplementationRegistry
9  ## |DOMImplementationRegistry| methods  ## |DOMImplementationRegistry| methods
10    
11  sub get_dom_implementation ($$) {  sub get_dom_implementation ($$) {
   local $Error::Depth = $Error::Depth + 1;  
12    for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {    for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
13      my $r = $class->get_dom_implementation ($_[1]);      my $r = $class->get_dom_implementation ($_[1]);
14      return $r if defined $r;      return $r if defined $r;
# Line 17  sub get_dom_implementation ($$) { Line 16  sub get_dom_implementation ($$) {
16  } # get_dom_implementation  } # get_dom_implementation
17    
18  sub get_dom_implementation_list ($$) {  sub get_dom_implementation_list ($$) {
   local $Error::Depth = $Error::Depth + 1;  
19    require Message::DOM::DOMImplementationList;    require Message::DOM::DOMImplementationList;
20    my $list = bless [], 'Message::DOM::DOMImplementationList';    my $list = bless [], 'Message::DOM::DOMImplementationList';
21    for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {    for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24