blob: 61baa84c2e4341a7259027afa4ac4d6d3ae63297 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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";
|
