method foo ($x) {
   return $x + 1;
}

##</code><code>##

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

##</code><code>##

method bar ($x) { }

##</code><code>##

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