line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package HTML::WidgetValidator::Widget::Natalie;
|
2
|
1
|
|
|
1
|
|
5
|
use strict;
|
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
34
|
|
3
|
1
|
|
|
1
|
|
5
|
use warnings;
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
24
|
|
4
|
1
|
|
|
1
|
|
5
|
use base qw(HTML::WidgetValidator::Widget);
|
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
211
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = '0.01';
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
__PACKAGE__->name('Natalie');
|
9
|
|
|
|
|
|
|
__PACKAGE__->url('http://natalie.mu/news/list');
|
10
|
|
|
|
|
|
|
__PACKAGE__->models([
|
11
|
|
|
|
|
|
|
[
|
12
|
|
|
|
|
|
|
{
|
13
|
|
|
|
|
|
|
"name" => "script",
|
14
|
|
|
|
|
|
|
"type" => "start",
|
15
|
|
|
|
|
|
|
"attr" => {
|
16
|
|
|
|
|
|
|
"src" => qr{http://natalie\.mu/widget/(?:news\?|hotnews\?|news\?category_id=[0-9]+|news\?artist_id=[0-9]+)},
|
17
|
|
|
|
|
|
|
"charset" => "UTF-8",
|
18
|
|
|
|
|
|
|
"type" => "text/javascript"
|
19
|
|
|
|
|
|
|
}
|
20
|
|
|
|
|
|
|
},
|
21
|
|
|
|
|
|
|
{
|
22
|
|
|
|
|
|
|
"name" => "script",
|
23
|
|
|
|
|
|
|
"type" => "end"
|
24
|
|
|
|
|
|
|
}
|
25
|
|
|
|
|
|
|
]
|
26
|
|
|
|
|
|
|
]);
|
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
1;
|
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
__END__
|