if ($whatever) {
  $self->{callback} = $self->can('a');
} else {
  $self->{callback} = sub {1};
}