Since perl's implementation OO doesn't cover variables this the place to use accessor methods e.g

use base 'Class::Accessor';

Guff->mk_accessors(qw/ child dispatch /);

## later on
  return $self->dispatch;
[download]

That's just one approach, but it's basically illustating how you might implement accessors to your package variables. See. Class::Accessor for more information on its usage.