my $b = Board->fetch(board => "perl-examples");

my ($subject, $message) = $b->get_post(
	user => $u, post_id => 42
) or die "$u cannot get";

$b->new_post(
	user => $u, 
	subject => "hi", 
	message => "print 'hello world'"
) or die "$u cannot new";

$b->set_post(
	user => $u, 
	post_id => 42,
	subject => "42", 
	message => "is the answer"
) or die "$u cannot set";