File Coverage

blib/lib/Net/NicoVideo/Response/NicoAPI.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Net::NicoVideo::Response::NicoAPI;
2              
3 1     1   1022 use strict;
  1         2  
  1         36  
4 1     1   4 use warnings;
  1         3  
  1         28  
5 1     1   6 use vars qw($VERSION);
  1         2  
  1         49  
6             $VERSION = '0.28';
7              
8 1     1   5 use base qw(Net::NicoVideo::Response);
  1         2  
  1         84  
9              
10 1     1   12 use Net::NicoVideo::Content::NicoAPI;
  1         2  
  1         9  
11              
12             sub parsed_content { # implement
13 0     0 0   my $self = shift;
14 0           Net::NicoVideo::Content::NicoAPI->new($self->_component)->parse;
15             }
16              
17              
18             1;
19             __END__