Ah - I'd rather do:

sub mode1{
  my $self = shift;
  return $self->mode2();
}
[download]

Is it so common place that the shorcut justifies the overhead of the additional run mode hash?