if ($s->SUPER::can("foo")) {$s->SUPER::foo ()}