Message/DOM/DOMImplementation.pm

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

sub ____new ($) {
  my $self = bless {}, shift;
  return $self;
} # ____new
*new = \&____new;

sub AUTOLOAD {
  my $method_name = our $AUTOLOAD;
  $method_name =~ s/.*:://;
  return if $method_name eq 'DESTROY';

  my $module_name = {
    create_atom_entry_document => 'Message::DOM::Atom::AtomElement',
    create_atom_feed_document => 'Message::DOM::Atom::AtomElement',
    create_document => 'Message::DOM::DOMDocument', ## TODO: New module name
    create_document_type => 'Message::DOM::DocumentType',
    create_uri_reference => 'Message::URI::URIReference',  
  }->{$method_name};
  if ($module_name) {
    eval qq{ require $module_name } or die $@;
    no strict 'refs';
    goto &{ $AUTOLOAD };
  } else {
    require Carp;
    Carp::croak (qq<Can't locate method "$AUTOLOAD">);
  }
} # AUTOLOAD

## URIImplementation
sub create_uri_reference ($$);

our $HasFeature;
$HasFeature->{core}->{''} = 1;
$HasFeature->{core}->{'1.0'} = 1;
$HasFeature->{core}->{'2.0'} = 1;
$HasFeature->{core}->{'3.0'} = 1;
$HasFeature->{traversal}->{''} = 1;
$HasFeature->{traversal}->{'2.0'} = 1;
$HasFeature->{xml}->{''} = 1;
$HasFeature->{xml}->{'1.0'} = 1;
$HasFeature->{xml}->{'2.0'} = 1;
$HasFeature->{xml}->{'3.0'} = 1;
$HasFeature->{xmlversion}->{''} = 1;
$HasFeature->{xmlversion}->{'1.0'} = 1;
$HasFeature->{xmlversion}->{'1.1'} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atom>}->{''} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atom>}->{'1.0'} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atomthreading>}->{''} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atomthreading>}->{'1.0'} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{''} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{'3.0'} = 1;
$HasFeature->{q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum>}->{''} = 1;
$HasFeature->{q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum>}->{'3.0'} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{''} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{'3.0'} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctypedeclaration>}->{''} = 1;
$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctypedeclaration>}->{'3.0'} = 1;

sub ___report_error { $_[1]->throw }

## |DOMImplementation| methods

sub create_document ($;$$$);

sub create_document_type ($$$$);

sub get_feature ($$;$) {
  my $feature = lc $_[1]; ## TODO: What |lc|?
  $feature =~ s/^\+//;
  
  if ($HasFeature->{$feature}->{defined $_[2] ? $_[2] : ''}) {
    return $_[0];
  } else {
    return undef;
  }
} # get_feature

sub has_feature ($$;$) {
  my $feature = lc $_[1];
  my $plus = $feature =~ s/^\+// ? 1 : 0;
  return $HasFeature->{$feature}->{defined $_[2] ? $_[2] : ''};
} # has_feature

## |AtomDOMImplementation| methods

sub create_atom_entry_document ($$;$$);

sub create_atom_feed_document ($$;$$);

package Message::IF::DOMImplementation;
package Message::IF::AtomDOMImplementation;

=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/15 05:18:46 $
1	package Message::DOM::DOMImplementation;
2	use strict;
3	our $VERSION=do{my @r=(q$Revision: 1.9 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4	push our @ISA, 'Message::IF::DOMImplementation',
5	'Message::IF::AtomDOMImplementation';
6
7	sub ____new ($) {
8	my $self = bless {}, shift;
9	return $self;
10	} # ____new
11	*new = \&____new;
12
13	sub AUTOLOAD {
14	my $method_name = our $AUTOLOAD;
15	$method_name =~ s/.*:://;
16	return if $method_name eq 'DESTROY';
17
18	my $module_name = {
19	create_atom_entry_document => 'Message::DOM::Atom::AtomElement',
20	create_atom_feed_document => 'Message::DOM::Atom::AtomElement',
21	create_document => 'Message::DOM::DOMDocument', ## TODO: New module name
22	create_document_type => 'Message::DOM::DocumentType',
23	create_uri_reference => 'Message::URI::URIReference',
24	}->{$method_name};
25	if ($module_name) {
26	eval qq{ require $module_name } or die $@;
27	no strict 'refs';
28	goto &{ $AUTOLOAD };
29	} else {
30	require Carp;
31	Carp::croak (qq<Can't locate method "$AUTOLOAD">);
32	}
33	} # AUTOLOAD
34
35	## URIImplementation
36	sub create_uri_reference ($$);
37
38	our $HasFeature;
39	$HasFeature->{core}->{''} = 1;
40	$HasFeature->{core}->{'1.0'} = 1;
41	$HasFeature->{core}->{'2.0'} = 1;
42	$HasFeature->{core}->{'3.0'} = 1;
43	$HasFeature->{traversal}->{''} = 1;
44	$HasFeature->{traversal}->{'2.0'} = 1;
45	$HasFeature->{xml}->{''} = 1;
46	$HasFeature->{xml}->{'1.0'} = 1;
47	$HasFeature->{xml}->{'2.0'} = 1;
48	$HasFeature->{xml}->{'3.0'} = 1;
49	$HasFeature->{xmlversion}->{''} = 1;
50	$HasFeature->{xmlversion}->{'1.0'} = 1;
51	$HasFeature->{xmlversion}->{'1.1'} = 1;
52	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atom>}->{''} = 1;
53	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atom>}->{'1.0'} = 1;
54	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atomthreading>}->{''} = 1;
55	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/atomthreading>}->{'1.0'} = 1;
56	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{''} = 1;
57	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{'3.0'} = 1;
58	$HasFeature->{q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum>}->{''} = 1;
59	$HasFeature->{q<http://suika.fam.cx/~wakaba/archive/2004/8/18/manakai-dom#minimum>}->{'3.0'} = 1;
60	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{''} = 1;
61	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctype>}->{'3.0'} = 1;
62	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctypedeclaration>}->{''} = 1;
63	$HasFeature->{q<http://suika.fam.cx/www/2006/feature/xdoctypedeclaration>}->{'3.0'} = 1;
64
65	sub ___report_error { $_[1]->throw }
66
67	## \|DOMImplementation\| methods
68
69	sub create_document ($;$$$);
70
71	sub create_document_type ($$$$);
72
73	sub get_feature ($$;$) {
74	my $feature = lc $_[1]; ## TODO: What \|lc\|?
75	$feature =~ s/^\+//;
76
77	if ($HasFeature->{$feature}->{defined $_[2] ? $_[2] : ''}) {
78	return $_[0];
79	} else {
80	return undef;
81	}
82	} # get_feature
83
84	sub has_feature ($$;$) {
85	my $feature = lc $_[1];
86	my $plus = $feature =~ s/^\+// ? 1 : 0;
87	return $HasFeature->{$feature}->{defined $_[2] ? $_[2] : ''};
88	} # has_feature
89
90	## \|AtomDOMImplementation\| methods
91
92	sub create_atom_entry_document ($$;$$);
93
94	sub create_atom_feed_document ($$;$$);
95
96	package Message::IF::DOMImplementation;
97	package Message::IF::AtomDOMImplementation;
98
99	=head1 LICENSE
100
101	Copyright 2007 Wakaba <w@suika.fam.cx>
102
103	This program is free software; you can redistribute it and/or
104	modify it under the same terms as Perl itself.
105
106	=cut
107
108	1;
109	## $Date: 2007/07/15 05:18:46 $