Select Code to Download

sub field_promotion (Soldier $x is rw)
 {
...
my General $y .= new;
field_promotion ($y);  # General "isa" Soldier, allowed.
$y.order_attack();

void field_promotion (Soldier& x)
 {
    x = Private();  // value assignment slices object (if allowed at a
+ll)
 }

void field_promotion (Soldier* &x)
 {
...
 General* y= new General();
 field_promotion (y);  // compile-time error
 }

our Soldier $x;

...

$x = General.new;
trythisone ($x);