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 <[email protected]>

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	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			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 <[email protected]>
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	wakaba	1.2	## $Date: 2007/07/07 05:58:11 $