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	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 $