|
|
1.1 paf 1: @CLASS
2: bug_derived
3:
4: @USE
5: /_bug.p
6:
7: @BASE
8: bug
9:
1.2 ! paf 10: @create[param]
! 11: ^BASE:create[param]
1.1 paf 12: #$_secret[$param]
13:
1.2 ! paf 14: @GET_paf[]
! 15: derived value
1.1 paf 16: #=$_secret=
17:
1.2 ! paf 18: #@SET_paf[value]
! 19: #^throw[debug;$value]
1.1 paf 20: #$_secret[$value]
21: #^throw[debug;$value,$_secret]