Changeset 694

Timestamp:

10/25/07 08:25:01 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/WWW-CommentGetter: added docs, use author for title.

Files:

• lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/bin/commentgetter.pl (modified) (2 diffs)

lang/perl/WWW-CommentGetter/trunk/WWW-CommentGetter/bin/commentgetter.pl

@@ -17 +17 @@
     my $ret = $w->get($url);
     my $entry = [map {
-        +{ link => $url, body => $_->{body}}
+        +{ link => $url, body => $_->{body}, title => $_->{author} || "can't get author name"}
     } @$ret];
 
@@ -43 +43 @@
 __END__
 
+=head1 SYNOPSIS
+
+    commentgetter.pl http://mala.nowa.jp/entry/24af50df17
+
 =head1 DESCRIPTION