Select Code to Download

use v5.20;
use experimental 'signatures';
...
        ref($self)->new($self->y, $self->x);
    }
}

my Foo $foo = Foo->new(...);

sub foo (Int $bar, Str $baz) {
   ...;
}

sub foo {
   my Int $bar = $_[0];
...
   die "..." if @_ > 2;
   ...;
}

my Foo $x = $y;

"Foo"->CHECK_SCALAR(\$newvalue);
Foo()->CHECK_SCALAR(\$newvalue);

sub UNIVERSAL::CHECK_SCALAR (Str $class, ScalarRef $sref) {
   require Scalar::Util;
...
      Carp::croak("...");
   }
}