whatpm/What/HTML.pm.src

package What::HTML;
use strict;
our $VERSION=do{my @r=(q$Revision: 1.8 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};

## This is an early version of an HTML parser.

my $permitted_slash_tag_name = {
  base => 1,
  link => 1,
  meta => 1,
  hr => 1,
  br => 1,
  img=> 1,
  embed => 1,
  param => 1,
  area => 1,
  col => 1,
  input => 1,
};

my $entity_char = {
1	wakaba	1.1	package What::HTML;
2			use strict;
3	wakaba	1.9	our $VERSION=do{my @r=(q$Revision: 1.8 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
4	wakaba	1.1
5	wakaba	1.8	## This is an early version of an HTML parser.
6	wakaba	1.1
7			my $permitted_slash_tag_name = {
8			base => 1,
9			link => 1,
10			meta => 1,
11			hr => 1,
12			br => 1,
13			img=> 1,
14			embed => 1,
15			param => 1,
16			area => 1,
17			col => 1,
18			input => 1,
19			};
20
21	wakaba	1.5	my $entity_char = {
22