Yet Another CPAN Grep

Net-NicoVideo ( H/HW/HWAT/Net-NicoVideo-0.28.tar.gz, HWAT, 2013; MetaCPAN )

Net-NicoVideo/lib/Net/NicoVideo/Content/NicoAPI.pm ( view source; MetaCPAN )

qw($VERSION);
$VERSION = '0.28';

use base qw(Net::NicoVideo::Content Class::Accessor::Fast);
use JSON 2.01;

use vars qw(@Members);
@Members = qw(
id
mylistgroup
mylistitem
error
status
);

__PACKAGE

->load($_[0]) if( defined $_[0] );

    my $json = decode_json( $self->_decoded_content );

    # member "status" exists in all case
    $self->status( $json->{status} );

    # member "error" exists

Content::NicoAPI::Error->new($json->{error}) )
        if( $json->{error} );

    # member "id" in a case /mylist/add
    $self->id( $json->{id} )
        if( exists $json->{id} );

    # member "myli