diff options
| author | Jules Laplace <carbon@melanarchy.org> | 2013-08-02 17:23:25 -0500 |
|---|---|---|
| committer | Jules Laplace <carbon@melanarchy.org> | 2013-08-02 17:23:25 -0500 |
| commit | e76b691e78e273226cba9284cb8cd22a423319ed (patch) | |
| tree | a58d22f69869fe2bf3885f81bdda4952f87ff6d7 /bucky2/t/get-thread.pl | |
| parent | 753f60c7d4769fa72d3b910e491f37db6f130898 (diff) | |
bucky2
Diffstat (limited to 'bucky2/t/get-thread.pl')
| -rwxr-xr-x | bucky2/t/get-thread.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/bucky2/t/get-thread.pl b/bucky2/t/get-thread.pl new file mode 100755 index 0000000..81fb163 --- /dev/null +++ b/bucky2/t/get-thread.pl @@ -0,0 +1,22 @@ +#!/usr/bin/perl +use lib "../lib"; +use Bucky; +use Data::Dumper; + +my $id = $ARGV[0] || 624; +my $bucky = new Bucky; + +my $thread = $bucky->thread($id); +print "Got a thread: " . $thread->_title . "\n"; +#print Dumper($thread); +my $keyword = $thread->keyword; +print "Got a keyword: " . $thread->_keyword . " / " . $keyword->_keyword . "\n"; +#print Dumper($keyword); + +# 1. get threads for keyword +# 2. + +# print "This many comments: " . scalar @{ $thread->comments } . "\n"; +# print "This many files: " . scalar @{ $thread->files } . "\n"; +# print "First comment: " . scalar @{ $thread->comments->[0] } . "\n"; + |