File Coverage

blib/lib/Net/NicoVideo/Response/Video.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	0	2	0.0
condition	0	3	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	33	60.6

package Net::NicoVideo::Response::Video;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.28';

use base qw/Net::NicoVideo::Response/;
use Net::NicoVideo::Content::Video;

sub parsed_content { # implement
    my $self = shift;

    my $parsed_content = Net::NicoVideo::Content::Video->new($self->_component)->parse;
    if( $self->header("X-Died") or $self->header("Client-Aborted") ){
        $parsed_content->set_status_error;
    }else{
        $parsed_content->set_status_success;
    }
    return $parsed_content;
}


1;
__END__