class TestCase::Alias {
  # use alias
  use TestCase::Minimal as Mi;
  
  # require alias
  alias TestCase::Simple as Si;

  static method alias : int () {
    
    # use alias
    {
      my $minimal = Mi->new;
      $minimal->set_x(3);
      unless ($minimal->x == 3) {
        return 0;
      }
    }
    
    # require alias
    if (require TestCase::Simple) {
      my $simple = Si->new;
      $simple->set_x(3);
      unless ($simple->x == 3) {
        return 0;
      }
    }
    
    return 1;
  }
}
