File Coverage

blib/lib/WWW/Google/Notebook/Notebook.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch			n/a
condition			n/a
subroutine	3	10	30.0
pod	5	5	100.0
total	17	39	43.5

package WWW::Google::Notebook::Notebook;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_ro_accessors(qw/id api/);
__PACKAGE__->mk_accessors(qw/title/);

sub notes {
    my $self = shift;
    $self->api->_notes($self);
}

sub delete {
    my $self = shift;
    $self->api->_delete_notebook($self);
}

sub rename {
    my ($self, $title) = @_;
    $self->title($title);
    $self->update;
}

sub update {
    my $self = shift;
    $self->api->_update_notebook($self);
}

sub add_note {
    my ($self, $content) = @_;
    $self->api->_add_note($self, $content);
}

sub _delete_note {
    my ($self, $note) = @_;
    $self->api->_delete_note($note);
}

sub _update_note {
    my ($self, $note) = @_;
    $self->api->_update_note($note);
}

1;
__END__