Commit | Line | Data |
cb5717ef |
1 | package HTML::Tags; |
2 | |
3 | use strict; |
4 | use warnings FATAL => 'all'; |
5 | use XML::Tags (); |
6 | |
7 | my @HTML_TAGS = qw( |
8 | h1 h2 h3 h4 h5 h6 p br hr ol ul li dl dt dd menu code var strong em tt |
9 | u i b blockquote pre img a address cite samp dfn html head base body |
10 | link nextid title meta kbd start_html end_html input select option |
11 | comment charset escapehtml div table caption th td tr tr sup sub |
12 | strike applet param nobr embed basefont style span layer ilayer font |
13 | frameset frame script small big area map abbr acronym bdo col colgroup |
14 | del fieldset iframe ins label legend noframes noscript object optgroup |
15 | q thead tbody tfoot blink fontsize center textfield textarea filefield |
16 | password_field hidden checkbox checkbox_group submit reset defaults |
17 | radio_group popup_menu button autoescape scrolling_list image_button |
18 | start_form end_form startform endform start_multipart_form |
19 | end_multipart_form isindex tmpfilename uploadinfo url_encoded |
20 | multipart form canvas |
21 | ); |
22 | |
23 | sub import { |
24 | my ($class, @rest) = @_; |
25 | my $opts = ref($rest[0]) eq 'HASH' ? shift(@rest) : {}; |
26 | ($opts->{into_level}||=1)++; |
27 | XML::Tags->import($opts, @HTML_TAGS, @rest); |
28 | } |
29 | |
49a6c0b5 |
30 | sub to_html_string { XML::Tags::to_xml_string(@_) } |
31 | |
cb5717ef |
32 | 1; |