Select Code to Download

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

...
    subject => "42", 
    message => "is the answer"
) or die "$u cannot set";

my $b = Board->fetch(board => "perl-examples");
my $get = $b->can_get or die "cannot get";
...
$get->(post_id = 42);
$new->(subject => 'hi', message => "print 'hello world'");
$set->(post_id => 42, subject => "42", message => "is the answer");