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