line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
24356
|
use warnings; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
31
|
|
2
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
51
|
|
3
|
|
|
|
|
|
|
package Mojolicious::Plugin::Disqus; |
4
|
|
|
|
|
|
|
BEGIN { |
5
|
1
|
|
|
1
|
|
17
|
$Mojolicious::Plugin::Disqus::VERSION = '1.22'; |
6
|
|
|
|
|
|
|
} |
7
|
1
|
|
|
1
|
|
898
|
use Mojo::Base 'Mojolicious::Plugin'; |
|
1
|
|
|
|
|
9416
|
|
|
1
|
|
|
|
|
6
|
|
8
|
1
|
|
|
1
|
|
2685
|
use Net::Disqus; |
|
1
|
|
|
|
|
15952
|
|
|
1
|
|
|
|
|
10
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub register { |
11
|
0
|
|
|
0
|
1
|
|
my ($self, $app, $args) = @_; |
12
|
|
|
|
|
|
|
|
13
|
0
|
|
0
|
|
|
|
$args ||= {}; |
14
|
|
|
|
|
|
|
|
15
|
0
|
0
|
|
|
|
|
die __PACKAGE__, ': The "api_secret" argument is required', "\n" unless($args->{api_secret}); |
16
|
|
|
|
|
|
|
|
17
|
0
|
|
|
0
|
|
|
$app->attr(_disqus => sub { Net::Disqus->new(%$args); }); |
|
0
|
|
|
|
|
|
|
18
|
0
|
|
|
0
|
|
|
$app->helper(disqus => sub { return shift->app->_disqus()->fetch(@_); }); |
|
0
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
1; |
22
|
|
|
|
|
|
|
__END__ |