HTML::WidgetValidator::Widget::Allatanys

d:id:pmint:20080709:p1の続き。

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