package TestCase::Examples {
  use TestCase::OnlyField;
  
  sub new_only_field_object : TestCase::OnlyField () {
    my $object = new TestCase::OnlyField;
    return $object;
  }
}