Select Code to Download

module In::Extremis;

...
multi infix:min= (Num $curr is rw, Num $new) is exported {
    $curr = min $curr, $new;
}