File Coverage

blib/lib/HTML/WidgetValidator/Widget/TegakiBlog.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package HTML::WidgetValidator::Widget::TegakiBlog;
use base qw(HTML::WidgetValidator::Widget);
use strict;
use warnings;

our $VERSION = 0.01;

__PACKAGE__->name('TegakiBlog');
__PACKAGE__->url('http://pipa.jp/tegaki/');
__PACKAGE__->models([
	[
		{ type => 'start', name => 'object',
			attr => {
				width => qr{\d+},
				height => qr{\d+},
			},
		},

		{ type => 'start', name => 'param',
			attr => {
				name => 'movie',
				value => 'http://pipa.jp/tegaki/OBlogParts.swf',
			},
		},
		{ type => 'end', name => 'param' },

		{ type => 'start', name => 'param',
			attr => {
				name => 'FlashVars',
				value => qr{ID=\d+},
			},
		},
		{ type => 'end', name => 'param' },

		{ type => 'start', name => 'embed',
			attr => {
				src => 'http://pipa.jp/tegaki/OBlogParts.swf',
				width => qr{\d+},
				height => qr{\d+},
				flashvars => qr{ID=\d+},
			},
		},
		{ type => 'end', name => 'embed' },

		{ type => 'end', name => 'object' },
	],

	[
		{ type => 'start', name => 'script',
			attr => {
				type => 'text/javascript',
				src => qr{http://pipa\.jp/tegaki/js/tag\.js(?:#userID=\d+)?},
			},
		},
		{ type => 'end', name => 'script' },
	],
]);

1;
__END__