File Coverage

blib/lib/Mojolicious/Plugin/Disqus.pm
Criterion Covered Total %
statement 13 20 65.0
branch 0 2 0.0
condition 0 2 0.0
subroutine 5 8 62.5
pod 1 1 100.0
total 19 33 57.5


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__