Message/DOM/DOMImplementationRegistry.pm

package Message::DOM::DOMImplementationRegistry;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
push our @ISA, 'Message::IF::DOMImplementationSource';
require Message::DOM::DOMImplementationSource;

$Message::DOM::DOMImplementationRegistry = __PACKAGE__;

## |DOMImplementationRegistry| methods

sub get_dom_implementation ($$) {
  local $Error::Depth = $Error::Depth + 1;
  for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
    my $r = $class->get_dom_implementation ($_[1]);
    return $r if defined $r;
  }
} # get_dom_implementation

sub get_dom_implementation_list ($$) {
  local $Error::Depth = $Error::Depth + 1;
  require Message::DOM::DOMImplementationList;
  my $list = bless [], 'Message::DOM::DOMImplementationList';
  for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
    push @$list, @{$class->get_dom_implementation_list ($_[1])};
  }
  return $list;
} # get_dom_implementation_list

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

1;
## $Date: 2007/07/07 04:47:29 $
1	wakaba	1.1	package Message::DOM::DOMImplementationRegistry;
2			use strict;
3			our $VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4			push our @ISA, 'Message::IF::DOMImplementationSource';
5			require Message::DOM::DOMImplementationSource;
6
7			$Message::DOM::DOMImplementationRegistry = __PACKAGE__;
8
9			## \|DOMImplementationRegistry\| methods
10
11			sub get_dom_implementation ($$) {
12			local $Error::Depth = $Error::Depth + 1;
13			for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
14			my $r = $class->get_dom_implementation ($_[1]);
15			return $r if defined $r;
16			}
17			} # get_dom_implementation
18
19			sub get_dom_implementation_list ($$) {
20			local $Error::Depth = $Error::Depth + 1;
21			require Message::DOM::DOMImplementationList;
22			my $list = bless [], 'Message::DOM::DOMImplementationList';
23			for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
24			push @$list, @{$class->get_dom_implementation_list ($_[1])};
25			}
26			return $list;
27			} # get_dom_implementation_list
28
29			=head1 LICENSE
30
31			Copyright 2007 Wakaba <w@suika.fam.cx>
32
33			This program is free software; you can redistribute it and/or
34			modify it under the same terms as Perl itself.
35
36			=cut
37
38			1;
39			## $Date: 2007/07/07 04:47:29 $