/usr/local/CPAN/Net-Douban/Net/Douban/DBSubject.pm

• package Net::Douban::DBSubject
  • BUILD
• EOF

package Net::Douban::DBSubject;

BEGIN {
    $Net::Douban::DBSubject::VERSION = '1.07';
}

use Moose;
use MooseX::StrictConstructor;
extends 'Net::Douban::Entry';

sub BUILD {
    my $self = shift;
    print "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx";
    $self->ns($self->namesapce->{main});
}

1;