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 ($$) {
  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 ($$) {
  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 05:58:11 $
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	for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
13	my $r = $class->get_dom_implementation ($_[1]);
14	return $r if defined $r;
15	}
16	} # get_dom_implementation
17
18	sub get_dom_implementation_list ($$) {
19	require Message::DOM::DOMImplementationList;
20	my $list = bless [], 'Message::DOM::DOMImplementationList';
21	for my $class (keys %$Message::DOM::DOMImplementationRegistry::SourceClass) {
22	push @$list, @{$class->get_dom_implementation_list ($_[1])};
23	}
24	return $list;
25	} # get_dom_implementation_list
26
27	=head1 LICENSE
28
29	Copyright 2007 Wakaba <w@suika.fam.cx>
30
31	This program is free software; you can redistribute it and/or
32	modify it under the same terms as Perl itself.
33
34	=cut
35
36	1;
37	## $Date: 2007/07/07 05:58:11 $