HTML::WidgetValidator::Widget::Harbotを書き換えたもの。
通したいHTMLタグとmodels部分が対応するので、あとは勘で。
書けたらsupport@hatena.ne.jpへ。
…採用されないかもしれないけど。
package HTML::WidgetValidator::Widget::Allatanys; use base qw(HTML::WidgetValidator::Widget); use strict; use warnings; __PACKAGE__->name('Allatanys'); __PACKAGE__->url('http://allatanys.jp/index.html'); __PACKAGE__->models([ [ { type => 'start', name => 'script', attr => { type => 'text/javascript', src => 'http://allatanys.jp/E003/bp_allatanys.js', }}, { type => 'end', name => 'script' } ], ]); 1; __END__ =head1 NAME HTML::WidgetValidator::Widget::Allatanys - Perl extension for validate "Allatanys" =head1 SEE ALSO L<HTML::WidgetValidator>, L<http://allatanys.jp/index.html> =head1 AUTHOR pmint, C<< <hatena@pmint.name> >> =cut