package TestCase::Precedence {
  sub basic : int () {
    {
      my $i = 0;
      my $ret = (string)$i++;
      unless ($ret eq "0" && $i == 1) {
        return 0;
      }
    }
    
    {
      my $ret = (string)stab_sum(1, 3);
      unless ($ret eq "4") {
        return 0;
      }
    }
    
    return 1;
  }
  
  sub stab_sum : int ($num1 : int, $num2 : int) {
    return $num1 + $num2;
  }
}