File Coverage

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

Criterion	Covered	Total	%
statement	21	36	58.3
branch	0	10	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	0	3	0.0
total	28	62	45.1

package Net::NicoVideo::Content::Flv;

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

use base qw(Net::NicoVideo::Content Class::Accessor::Fast);
use Carp qw(croak);
use CGI::Simple;

use vars qw(@Members);
@Members = qw(
thread_id
l
url
link
ms
user_id
is_premium
nickname
time
done
feedrev
ng_rv
hms
hmsp
hmst
hmstk
rpu
);

__PACKAGE__->mk_accessors(@Members);

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

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

    my $cgi = CGI::Simple->new($self->_decoded_content);
    for my $name ( $cgi->param ){
        $self->$name( $cgi->param($name) )
            if( $self->can($name) );
    }

    # status
    my $url = $self->url;
    if( defined $url and $url =~ /nicovideo\.jp/ ){
        $self->set_status_success;
    }else{
        $self->set_status_error;
    }

    return $self;
}

sub is_economy {
    my $self = shift;
    my $url = $self->url or croak "url is not set, does not it fetch flv data yet?";
    return $url =~ /low$/ ? 1 : 0;
}


1;
__END__