public notExist;
class foo {
public var vFoo;
public const cFoo = 3;
}
foo bar();
proc main()
{
"foo.vFoo readonly: ", oadl::readonly(foo,public::vFoo), '\n';
"bar.vFoo readonly: ", oadl::readonly(bar,public::vFoo), '\n';
"bar.cFoo readonly: ", oadl::readonly(bar,public::cFoo), '\n';
"bar.notExist readonly: ", oadl::readonly(bar,public::notExist), '\n';
}