=encoding euc-jp =for oldobsoletestuffthatIwanttokeep (訳者注:PODだけ切り出したら、こんなことになるなんて思っていなかったと思われる。 コメントを信じれば、古い項目部分で消したけど取っておきたい部分ということらしい) my %booger = ( 'maybePaired' => 'LI DT DD P TD TH TR OPTION COLGROUP THEAD TFOOT TBODY COL', 'expectArgsRE' => 'A|FONT', 'headTagsRE' => 'TITLE|NEXTID|LINK|BASE|META', 'requiredContext' => { 'AREA' => 'MAP', 'CAPTION' => 'TABLE', 'DD' => 'DL', 'DT' => 'DL', 'FIELDSET' => 'FORM', 'FRAME' => 'FRAMESET', 'INPUT' => 'FORM', 'LABEL' => 'FORM', 'LEGEND' => 'FIELDSET', 'LI' => 'DIR|MENU|OL|UL', 'NOFRAMES' => 'FRAMESET', 'OPTGROUP' => 'SELECT', 'OPTION' => 'SELECT', 'SELECT' => 'FORM', 'TD' => 'TR', 'TEXTAREA' => 'FORM', 'TH' => 'TR', 'TR' => 'TABLE', 'PARAM' => 'APPLET|OBJECT', }, 'okInHead' => { 'ISINDEX' => 1, 'TITLE' => 1, 'NEXTID' => 1, 'LINK' => 1, 'BASE' => 1, 'META' => 1, 'RANGE' => 1, 'STYLE' => 1, 'OBJECT' => 1, '!--' => 1, }, ## elements which cannot be nested 'nonNest' => 'A|FORM', 'requiredAttributes' => { APPLET => 'WIDTH|HEIGHT', AREA => 'ALT', BASE => 'HREF', BASEFONT => 'SIZE', BDO => 'DIR', FORM => 'ACTION', IMG => 'SRC|ALT', LINK => 'HREF', MAP => 'NAME', NEXTID => 'N', SELECT => 'NAME', TEXTAREA => 'NAME|ROWS|COLS' }, 'attributeFormat' => { 'ALIGN', 'BOTTOM|MIDDLE|TOP|LEFT|CENTER|RIGHT|JUSTIFY|'. 'BLEEDLEFT|BLEEDRIGHT|DECIMAL', 'ALINK' => 'color', 'BGCOLOR' => 'color', 'CLEAR', 'LEFT|RIGHT|ALL|NONE', 'COLOR' => 'color', 'COLS', '\d+|(\d*[*%]?,)*\s*\d*[*%]?', 'COLSPAN', '\d+', 'DIR' => 'LTR|RTL', 'HEIGHT', '\d+', 'INDENT', '\d+', 'LINK' => 'color', 'MAXLENGTH', '\d+', 'METHOD', 'GET|POST', 'ROWS', '\d+|(\d*[*%]?,)*\s*\d*[*%]?', 'ROWSPAN', '\d+', 'SEQNUM', '\d+', 'SIZE', '[-+]?\d+|\d+,\d+', 'SKIP', '\d+', 'TYPE', 'CHECKBOX|HIDDEN|IMAGE|PASSWORD|RADIO|RESET|'. 'SUBMIT|TEXT|[AaIi1]|disc|square|circle|'. 'FILE|.*', 'UNITS', 'PIXELS|EN', 'VALIGN', 'TOP|MIDDLE|BOTTOM|BASELINE', 'VLINK' => 'color', 'WIDTH', '\d+%?', 'WRAP', 'OFF|VIRTUAL|PHYSICAL', 'X', '\d+', 'Y', '\d+' }, 'badTextContext' => { 'HEAD', 'BODY, or TITLE perhaps', 'UL', 'LI or LH', 'OL', 'LI or LH', 'DL', 'DT or DD', 'TABLE', 'TD or TH', 'TR', 'TD or TH' }, 'bodyColorAttributes' => [ qw(BGCOLOR TEXT LINK ALINK VLINK) ], ); =head1 名前 HTML::Lint::HTML4.pm -- HTML::Lintによって使われるHTML 4のためのルール =head1 概要 ユーザに提供可能な部品はありません。HTML::Lintによって使われます。 =head1 参考資料 =over 4 =item HTML::Lint =back =head1 作者 Andy Lester Eandy@petdance.comE =head1 著作権(=COPYRIGHT) Copyright (c) Andy Lester 2001. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 翻訳者 川合孝典(GCD00051@nifty.ne.jp)