21 lines
226 B
Plaintext
21 lines
226 B
Plaintext
|
#-*-perl-*-
|
||
|
|
|
||
|
|
layerinfo type = core;
|
||
|
|
layerinfo "majorversion" = 0;
|
||
|
|
|
||
|
|
class Foo
|
||
|
|
{
|
||
|
|
var readonly int a;
|
||
|
|
var int b;
|
||
|
|
}
|
||
|
|
|
||
|
|
property Foo f;
|
||
|
|
|
||
|
|
function main()
|
||
|
|
{
|
||
|
|
var Foo f;
|
||
|
|
$f.b = 1;
|
||
|
|
println "Foo.b = $f.b";
|
||
|
|
# $f.a = 2;
|
||
|
|
}
|