Net::Douban::Collection - Net::Douban::Collection documentation

    Net::Douban::Collection

	use Net::Douban::Collection;
	my $user = Net::Douban::Collection->new(

		collectionID => '....',
        # or
        oauth => $consumer,
	);

package Net::Douban::Collection;

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

use Moose;
use MooseX::StrictConstructor;
use Carp qw/carp croak/;
use Net::Douban::Atom;
with 'Net::Douban::Roles::More';

has 'collectionID' => (
    is  => 'rw',
    isa => 'Str',
);

has 'collection_url' => (
    is      => 'rw',
    isa     => 'Url',
    lazy    => 1,
    default => sub { shift->base_url . '/collection' },
);

sub get_collection {
    my ($self, %args) = @_;
    $args{collectionID} ||= $self->collectionID;
    croak "collectionID missing" unless $args{collectionID};
    return Net::Douban::Atom->new(
        $self->get($self->collection_url . "/$args{collectionID}"));
}

sub get_user_collection {
    my ($self, %args) = @_;
    my $uid = delete $args{userID} or croak "userID needed!";
    exists $args{cat} or croak "cat(category) needed!";
    return Net::Douban::Atom->new(
        $self->get($self->user_url . "/$uid/collection", %args));
}

sub add_collection {
    my ($self, %args) = @_;
    croak "post xml needed" unless exists $args{xml};
    return $self->post($self->collection_url, xml => $args{xml});
}

sub put_collection {
    my ($self, %args) = @_;
    $args{collectionID} ||= $self->collectionID;
    croak "put xml needed" unless exists $args{xml};
    return $self->put($self->collection_url . "/$args{collectionID}",
        xml => $args{xml},);
}

sub delete_collection {
    my ($self, %args) = @_;
    $args{collectionID} ||= $self->collectionID;
    croak "collectionID missing" unless $args{collectionID};
    return $self->delete($self->collection_url . "/$args{collectionID}");

}

no Moose;
__PACKAGE__->meta->make_immutable;
1;

__END__