package HTML::WidgetValidator::Widget::PixivEmbedFeature; use base qw(HTML::WidgetValidator::Widget); use strict; use warnings; our $VERSION = 0.03; __PACKAGE__->name('PixivEmbedFeature'); __PACKAGE__->url('http://www.pixiv.net/'); __PACKAGE__->models([ [ { type => 'start', name => 'iframe', attr => { style => qr{(?:background:(?:transparent);\s*)*}, width => qr{.*}, height => qr{.*}, frameborder => qr{.*}, marginheight => qr{.*}, marginwidth => qr{.*}, scrolling => qr{.*}, src => qr{http://embed\.pixiv\.net/code\.php\??.*}, }}, { type => 'end', name => 'iframe' } ], ]); 1; __END__ =head1 NAME HTML::WidgetValidator::Widget::PixivEmbedFeature - Perl extension for validate "pixiv Embed" =head1 SYNOPSIS my $validator = HTML::WidgetValidator->new(widgets => ['PixivEmbedFeature']); my $result = $validator->validate($html); $result->code; =head1 DESCRIPTION Validate "pixiv Embed". =head1 SEE ALSO L, L =head1 AUTHOR pmint, C<< >> =head1 LICENSE Copyright (C) 2008 pmint Some Rights Reserved. This library is free software; you may redistribute it and/or modify it under the same terms as Perl itself. =cut