#!/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";