File Coverage

blib/lib/Net/NicoVideo/Content.pm

Criterion	Covered	Total	%
statement	27	44	61.3
branch	6	20	30.0
condition	1	3	33.3
subroutine	8	13	61.5
pod	0	8	0.0
total	42	88	47.7

package Net::NicoVideo::Content;

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

sub new {
    my $class = shift;
    $class = ref $class || $class;

    my $contents = shift;

    my $self = {
        _decoded_content => undef,
        _status => undef,
    };

    bless $self, $class;

    $self->load($contents) if( defined $contents );

    return $self;
}

sub _decoded_content {
    my $self = shift;
    return @_ ? $self->{_decoded_content} = shift : $self->{_decoded_content};
}

sub _status {
    my $self = shift;
    return @_ ? $self->{_status} = shift : $self->{_status};
}

sub set_status_success {
    $_[0]->_status(1);
}

sub set_status_error {
    $_[0]->_status(0);
}

sub load {
    my $self = shift;
    my $contents = shift;

    unless( ref($contents) ){
        $self->_decoded_content( $contents );
    }else{
        if( $contents->isa('HTTP::Response') ){
            $self->_decoded_content( $contents->decoded_content );
        }else{
            $self->_decoded_content( $$contents );
        }
    }

    return $self;
}

sub members { # interface
    ();
}

sub parse { # interface
    my $self = shift;
    $self->load($_[0]) if( defined $_[0] );

    # here! parse contents and set _status to success or error

    return $self;
}

sub is_success {
    my $self = shift;
    unless( defined $self->_status ){
        die "content is not parsed as @{[ ref($self) ]} yet";
    }
    return $self->_status ? 1 : 0;
}

sub is_error {
    my $self = shift;
    unless( defined $self->_status ){
        die "content is not parsed as @{[ ref($self) ]} yet";
    }
    return $self->_status ? 0 : 1;
}


1;
__END__