/[suikacvs]/messaging/manakai/lib/Message/DOM/DOMImplementation.pm
Suika

Diff of /messaging/manakai/lib/Message/DOM/DOMImplementation.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by wakaba, Sat Jul 14 16:32:28 2007 UTC revision 1.9 by wakaba, Sun Jul 15 05:18:46 2007 UTC
# Line 1  Line 1 
1  package Message::DOM::DOMImplementation;  package Message::DOM::DOMImplementation;
2  use strict;  use strict;
3  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};  our $VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4  push our @ISA, 'Message::IF::DOMImplementation';  push our @ISA, 'Message::IF::DOMImplementation',
5  require Message::DOM::DOMException;      'Message::IF::AtomDOMImplementation';
6    
7  sub ____new ($) {  sub ____new ($) {
8    my $self = bless {}, shift;    my $self = bless {}, shift;
# Line 16  sub AUTOLOAD { Line 16  sub AUTOLOAD {
16    return if $method_name eq 'DESTROY';    return if $method_name eq 'DESTROY';
17    
18    my $module_name = {    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      create_document => 'Message::DOM::DOMDocument', ## TODO: New module name
22      create_document_type => 'Message::DOM::DocumentType',      create_document_type => 'Message::DOM::DocumentType',
23      create_mc_decode_handler => 'Message::Charset::Encode',      create_mc_decode_handler => 'Message::Charset::Encode',
# Line 54  $HasFeature->{xml}->{'3.0'} = 1; Line 56  $HasFeature->{xml}->{'3.0'} = 1;
56  $HasFeature->{xmlversion}->{''} = 1;  $HasFeature->{xmlversion}->{''} = 1;
57  $HasFeature->{xmlversion}->{'1.0'} = 1;  $HasFeature->{xmlversion}->{'1.0'} = 1;
58  $HasFeature->{xmlversion}->{'1.1'} = 1;  $HasFeature->{xmlversion}->{'1.1'} = 1;
59    $HasFeature->{q<http://suika.fam.cx/www/2006/feature/atom>}->{''} = 1;
60    $HasFeature->{q<http://suika.fam.cx/www/2006/feature/atom>}->{'1.0'} = 1;
61    $HasFeature->{q<http://suika.fam.cx/www/2006/feature/atomthreading>}->{''} = 1;
62    $HasFeature->{q<http://suika.fam.cx/www/2006/feature/atomthreading>}->{'1.0'} = 1;
63  $HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{''} = 1;  $HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{''} = 1;
64  $HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{'3.0'} = 1;  $HasFeature->{q<http://suika.fam.cx/www/2006/feature/min>}->{'3.0'} = 1;
65  $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>}->{''} = 1;
# Line 88  sub has_feature ($$;$) { Line 94  sub has_feature ($$;$) {
94    return $HasFeature->{$feature}->{defined $_[2] ? $_[2] : ''};    return $HasFeature->{$feature}->{defined $_[2] ? $_[2] : ''};
95  } # has_feature  } # has_feature
96    
97    ## |AtomDOMImplementation| methods
98    
99    sub create_atom_entry_document ($$;$$);
100    
101    sub create_atom_feed_document ($$;$$);
102    
103  package Message::IF::DOMImplementation;  package Message::IF::DOMImplementation;
104    package Message::IF::AtomDOMImplementation;
105    
106  =head1 LICENSE  =head1 LICENSE
107    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24