package TestCase::Inline {
  
  # Inline expansion
  sub constant_sub_return_double : double () {
    return 0.25;
  }
  
  # Array store undef
  sub constant_sub : int () {
    unless (constant_sub_return_double() == 0.25) {
      return 0;
    }
    
    return 1;
  }
  
  # Inline expansion
  sub new : TestCase::Inline () {
    return new TestCase::Inline;
  }
  
  # Array store undef
  sub new_inline : int () {
    my $self = TestCase::Inline->new;
    
    unless ($self isa TestCase::Inline) {
      return 0;
    }
    
    return 1;
  }

}
