diff options
Diffstat (limited to 'bucky2/t/get-keyword.pl')
| -rwxr-xr-x | bucky2/t/get-keyword.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/bucky2/t/get-keyword.pl b/bucky2/t/get-keyword.pl new file mode 100755 index 0000000..61baa84 --- /dev/null +++ b/bucky2/t/get-keyword.pl @@ -0,0 +1,18 @@ +#!/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); +# print "This many comments: " . scalar @{ $thread->comments } . "\n"; +# print "This many files: " . scalar @{ $thread->files } . "\n"; +# print "First comment: " . scalar @{ $thread->comments->[0] } . "\n"; + |