Your subs in the dispatch table need to accept parameters:

    dispatch => {
      A => sub { $self->suba(@_) },
      B => sub { $self->subb(@_) },
    }
[download]