File Coverage

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

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	25	60.0

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

__PACKAGE__->mk_ro_accessors(qw/id created_on last_modified/);
__PACKAGE__->mk_accessors(qw/content notebook/);

sub delete {
    my $self = shift;
    $self->notebook->_delete_note($self);
}

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

sub update {
    my $self = shift;
    $self->notebook->_update_note($self);
}

1;
__END__