sub foo {
   my $self = shift;
   my $x = @_>=1 ? shift(@_) : croak("Requires \$x");
   return $x + 1;
}