$object->$code(@args);

##</code><code>##

$object->record( name => 'doit',
                 callback => sub {
                     my $caller=shift;
                     # ...
                 } );