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