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