| Net-Google-PicasaWeb documentation | Contained in the Net-Google-PicasaWeb distribution. |
Net::Google::PicasaWeb::Comment - represents a single Picasa Web comment
version 0.11
my @comments = $service->list_comments;
for my $comment (@comments) {
print "Title: ", $comment->title, "\n";
print "Content: ", $photo->content, "\n";
}
Represents an individual Picasa Web comment. This class extends Net::Google::PicasaWeb::Feed.
The URL used to get information about the object. See url in Net::Google::PicasaWeb::Feed.
This is the name of the person that made the comment. See Net::Google::PicasaWeb:::Feed/title.
This is the comment that was made.
This is the unique ID for the comment. See entry_id in Net::Google::PicasaWeb::Feed.
Andrew Sterling Hanenkamp <hanenkamp@cpan.org>
This software is copyright (c) 2011 by Andrew Sterling Hanenkamp.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
| Net-Google-PicasaWeb documentation | Contained in the Net-Google-PicasaWeb distribution. |
package Net::Google::PicasaWeb::Comment; BEGIN { $Net::Google::PicasaWeb::Comment::VERSION = '0.11'; } use Moose; # ABSTRACT: represents a single Picasa Web comment extends 'Net::Google::PicasaWeb::Feed'; has content => ( is => 'rw', isa => 'Str', ); override from_feed => sub { my ($class, $service, $entry) = @_; my $self = $class->super($service, $entry); $self->content($entry->field('content')); return $self; }; __PACKAGE__->meta->make_immutable; 1; __END__