File Coverage

blib/lib/Net/NicoVideo/Content/MylistItem.pm

Criterion	Covered	Total	%
statement	18	47	38.3
branch	0	16	0.0
condition	0	18	0.0
subroutine	6	9	66.6
pod	0	2	0.0
total	24	92	26.0

package Net::NicoVideo::Content::MylistItem;

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

use base qw(Net::NicoVideo::Content Class::Accessor::Fast);
use HTML::Parser 3.00;

use vars qw(@Members);
@Members = qw(
item_type
item_id
description
token
);

__PACKAGE__->mk_accessors(@Members);

sub members { # implement
    my @copy = @Members;
    @copy;
}

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

    my $content = $self->_decoded_content;

    # take NicoAPI.token
    if( $content =~ /NicoAPI\.token\s*=\s*"([-\w]+)"/ ){
        $self->token( $1 );
    }

    # take item_type and item_id using HTML::Parser
    my $item_type   = undef;
    my $item_id     = undef;
    my $description = undef;
    my $p;
    $p = HTML::Parser->new(
        api_version => 3,
        start_h => [ sub {
                my ($tagname, $attr) = @_;
                if( lc($tagname) eq 'input' ){
                    if( exists $attr->{name} and lc($attr->{name}) eq 'item_type' ){
                        $item_type  = $attr->{value};
                    }
                    if( exists $attr->{name} and lc($attr->{name}) eq 'item_id' ){
                        $item_id    = $attr->{value};
                    }
                    if( exists $attr->{name} and lc($attr->{name}) eq 'description' ){
                        $description= $attr->{value};
                    }
                }
                $p->eof if( defined $item_type and defined $item_id and defined $description );
            }, 'tagname, attr']);
    $p->parse($content);
    $self->item_type( $item_type );
    $self->item_id( $item_id );
    $self->description( $description );

    # status
    if( defined $self->item_id and defined $self->item_type ){
        $self->set_status_success;
    }else{
        $self->set_status_error;
    }

    return $self;
}


1;
__END__