File Coverage

blib/lib/Net/NicoVideo/Response/MylistRSS.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Net::NicoVideo::Response::MylistRSS;
2              
3 2     2   85339 use strict;
  2         5  
  2         117  
4 2     2   13 use warnings;
  2         4  
  2         61  
5 2     2   10 use vars qw($VERSION);
  2         5  
  2         113  
6             $VERSION = '0.28';
7              
8 2     2   13 use base qw(Net::NicoVideo::Response);
  2         4  
  2         862  
9 2     2   576 use Net::NicoVideo::Content::MylistRSS;
  2         7  
  2         156  
10              
11             sub parsed_content { # implement
12 1     1 0 1036 my $self = shift;
13 1         12 Net::NicoVideo::Content::MylistRSS->new($self->_component)->parse;
14             }
15              
16              
17             1;
18             __END__