NAME
WWW::UsePerl::Journal::Thread - use.perl.org journal comment thread tool
SYNOPSIS
use WWW::UsePerl::Journal;
use WWW::UsePerl::Journal::Thread;
my $journal = WWW::UsePerl::Journal->new('barbie');
my @entries = $journal->entryids();
my $thread = WWW::UsePerl::Journal::Thread->new(thread => $entries[0]);
my @comments = $thread->commentids();
foreach my $id (@comments) {
printf "\n----\n%s [%d %s %d] %s",
$thread->comment($id)->subject(),
$thread->comment($id)->score(),
$thread->comment($id)->user(),
$thread->comment($id)->uid(),
$thread->comment($id)->date(),
$thread->comment($id)->content();
}
my $threadid = $thread->thread();DESCRIPTION
Using WWW::UsePerl::Journal to extract entry ids, each id can be used to seed a thread of comments. Each comment can be accessed as an object, thus values can be retrieve for each object variable.
The Constructor
new()
use WWW::UsePerl::Journal;
my $journal = WWW::UsePerl::Journal->new('barbie');
use WWW::UsePerl::Journal::Thread;
my $j = WWW::UsePerl::Journal::Thread-E<gt>new(j => $journal, thread => 123456);Creates an thread instance for the specified journal entry.
thread
Returns the current thread id.
comment
Returns a comment object of the given comment ID
commentids
Returns an ascending array of the comment IDs. Can take an optional hash parameter containing {descending=>1} to return a descending array of the comment IDs, or {threaded=>1} to return a threaded list.
BUGS & ENHANCEMENTS
No bugs reported as yet.
If you think you've found a bug, send details and patches (if you have one) to <modules@missbarbell.co.uk>.
If you have a suggestion for an enhancement, though I can't promise to implement it, please send details to <modules@missbarbell.co.uk>.
AUTHOR
Barbie, <barbie@missbarbell.co.uk>
for Miss Barbell Productions.
CREDITS
Russell Matbouli, for creating WWW::UsePerl::Journal in the first place and giving me the idea to extend it further.
COPYRIGHT AND LICENSE
Copyright 2003 by Barbie.
Distributed under GPL v2. See COPYING included with this distibution.
SEE ALSO
http://use.perl.org/
LWP