Net::Google::PicasaWeb::Comment - represents a single Picasa Web comment


Net-Google-PicasaWeb documentation Contained in the Net-Google-PicasaWeb distribution.

Index


Code Index:

NAME

Top

Net::Google::PicasaWeb::Comment - represents a single Picasa Web comment

VERSION

Top

version 0.11

SYNOPSIS

Top

  my @comments = $service->list_comments;
  for my $comment (@comments) {
      print "Title: ", $comment->title, "\n";
      print "Content: ", $photo->content, "\n";
  }

DESCRIPTION

Top

Represents an individual Picasa Web comment. This class extends Net::Google::PicasaWeb::Feed.

ATTRIBUTES

Top

url

The URL used to get information about the object. See url in Net::Google::PicasaWeb::Feed.

title

This is the name of the person that made the comment. See Net::Google::PicasaWeb:::Feed/title.

content

This is the comment that was made.

author_name

This is the author of the comment. See author_name in Net::Google::PicasaWeb::Feed.

author_uri

This is the URL to get to the author's public albums on Picasa Web. See author_uri in Net::Google::PicasaWeb::Feed.

entry_id

This is the unique ID for the comment. See entry_id in Net::Google::PicasaWeb::Feed.

AUTHOR

Top

Andrew Sterling Hanenkamp <hanenkamp@cpan.org>

COPYRIGHT AND LICENSE

Top


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__