Select Code to Download

$method = $self->{server}->getcallback("data");
$self->$method();

...setcallback(
   data => $self->can("gotdata"),
   connect => $self->can("connected"),
   disconnect => $self->can("disconnect")
)

...setcallback(
   data => sub { $obj->gotdata },
   ...