10 lines
134 B
Text
10 lines
134 B
Text
frozen class
|
|
SINGLETON_ACCESS
|
|
feature
|
|
singleton: SINGLETON
|
|
once ("PROCESS")
|
|
create Result
|
|
ensure
|
|
Result /= Void
|
|
end
|
|
end
|