HTML::DOM::Implementation - HTML::DOM's 'DOMImplementation' object

HTML-DOM documentation Contained in the HTML-DOM distribution.

Index

Code Index:

NAME

Top

HTML::DOM::Implementation - HTML::DOM's 'DOMImplementation' object

SYNOPSIS

Top

  $impl = $HTML::DOM::Implementation::it;
  $impl->hasFeature('HTML', '1.0'); # returns true
  $impl->hasFeature('XML' , '1.0'); # returns false

DESCRIPTION

Top

This singleton class provides HTML::DOM's 'DOMImplementation' object. There is no constructor. The object itself is accessible as $HTML::DOM::Implementation::it or HTML::DOM->implementation.

THE ONLY METHOD

Top

$implementation->hasFeature( $name, $version )

This returns true or false depending on whether the feature is supported. $name is case-tolerant. $version is optional. The supported features are listed under DESCRIPTION in HTML::DOM. If $version is '1.0', this method only returns true for 'Core' and 'HTML'.

SEE ALSO

Top

HTML::DOM

HTML-DOM documentation Contained in the HTML-DOM distribution. 
package HTML::DOM::Implementation;

use strict;
use warnings;

our $VERSION = '0.048';

our $it = bless do{\my$x};

my %features = (
	html => { '1.0' => 1, '2.0' => 1 },
	core => { '1.0' => 1, '2.0' => 1 },
	events => { '2.0' => 1 },
	uievents => { '2.0' => 1 },
	mouseevents => { '2.0' => 1},
	mutationevents => { '2.0' => 1 },
        htmlevents => { '2.0' => 1 },
	views => { '2.0' => 1 },
#	stylesheets => { '2.0' => 1 },
#       css => { '2.0' => 1 },
);

sub hasFeature {
	my($feature,$v) = (lc $_[1], $_[2]);
	exists $features{$feature}
	?	!defined $v || exists $features{$feature}{$v}
	:	$feature =~ /^(?:stylesheets|css2?)\z/
		&& (require CSS::DOM, CSS::DOM->hasFeature(@_[1..$#_]));
}

# ~~~ documentation, please!
# ~~~ not until I actually decide this should be here.
sub add_feature { # feature, version
	$features{$_[1]}{$_[2]}++;
}

1
__END__