File Coverage

blib/lib/Net/NicoVideo/Response.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	32	50.0

package Net::NicoVideo::Response;

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

# NOTE: Never inherit with classes that have "get()" or "set()",
# because these interfere with _component which is decorated with Net::NicoVideo::Decorator
use base qw(Net::NicoVideo::Decorator);

sub is_authflagged {
    my $self = shift;
    $self->headers->header('x-niconico-authflag');
}

# a client has to check is_success and is_content_success
# before calling this
sub parsed_content { # abstract
    my $self = shift;
    Net::NicoVideo::Content->new($self->_component)->parse;
}

# DEPRECATED - use Net::NicoVideo::Content#is_success instead
sub is_content_success { # abstract
    my $self = shift;
    $self->parsed_content->is_success;
}

# DEPRECATED - use Net::NicoVideo::Content#is_error instead
sub is_content_error { # abstract
    my $self = shift;
    $self->parsed_content->is_error;
}


1;
__END__