^connect[$lLogger.db]{
      $query[^apply-taint[sql][
        INSERT INTO $lLogger.table
          SET
            Session = '${status:pid}/$status:tid'
            ^if(def $lLevel){   ,Level = ^lLevel.int(-1) }
            ^if(def $lSection){ ,Section = _utf8'^lSection.left(250)'}
           ,Message = _utf8'^taint[$lMessage]'
           ,Host    = _utf8'$env:REMOTE_ADDR ^if($env:HTTP_X_REAL_IP ne $env:REMOTE_ADDR || def $env:HTTP_CF_IPCOUNTRY){($env:HTTP_X_REAL_IP $env:HTTP_CF_IPCOUNTRY)} -> $env:SERVER_ADDR'
           ,Domain  = _utf8'$env:HTTP_HOST / $env:SERVER_NAME'
           ,URI     = _utf8'$env:REQUEST_URI -> $env:PATH_TRANSLATED'
           ,ENV     = _utf8'^taint[^json:string[$env:fields]]'
           ,Forms   = ^if(def $form:fields){_utf8'^taint[^json:string[$form:fields]]'}{NULL}
      ]]
      ^void:sql{$query}
    }

Unhandled exception in eLogger.p(87:13): '\n INSERT INTO log_exception\n SET\n Session = '58979/58979'\n ,Level = 65535 \n ,Section = _utf8'UNHANDLED'\n ,Message = _utf8'EXCEPTION: type: sql.execute\\nsource: \\n INSERT INTO log_exception\\n SET\\n Session = \\'58979/58979\\'\\n ,Level = 65535 \\n ,Section = _utf8\\'db\\'\\n ,Message = _utf8\\'EXCEPTION: type: sql.execute\\\\nsource: UPDATE email SET StatusID = 200 WHERE ID = 102970\\\\nfile: /ext.bounce.p\\\\nlineno: 72\\\\ncolno: 13\\\\ncomment: UPDATE command denied to user \\\\\\'API\\\\\\'@\\\\\\'10.0.0.22\\\\\\' for table \\\\\\'email\\\\\\'\\\\nhandled: 0\\'\\n ,Host = _utf8\\'10.0.0.60 ( ) -> 10.0.0.22\\'\\n ,Domain = _utf8\\'t.local / t.local\\'\\n ,URI = _utf8\\'/?bounce -> /EXT.local/index.p3h\\'\\n "

@CLASS
test

@OPTIONS
locals

@create[]

@getPrivate[]
	$result[$self.vars.private]

@GET_DEFAULT[sFieldName]
	^if(^self.privateVarNames.contains[$sFieldName]){
		^return[PRIVATE]
	}
	$result[$self.vars.[$sFieldName]]

@GET_vars[]
	^if(^reflection:uid[$self] ne ^reflection:uid[$caller.self]){
		^return[PRIVATE]
	}
	$result[
		$.public[777]
		$.private[666]
	]

@GET_privateVarNames[]
	^if(^reflection:uid[$self] ne ^reflection:uid[$caller.self]){
		^return[PRIVATE]
	}
	$result[
		$.private[]
	]

	^use[test.p]
	$oTest[^test::create[]]
	public=$oTest.public<br />
	private=$oTest.private<br />
	private_by_method=^oTest.getPrivate[]<br />
	vars=^json:string[$oTest.vars]<br />
	privateVarNames=^json:string[$oTest.privateVarNames]

public=777 private=PRIVATE private_by_method=666 vars="PRIVATE" privateVarNames="PRIVATE"

	^use[../test/class1.p;
		$.replace(true)
	]

$USED.$filename[название класса и, возможно, еще какие-нибудь параметры]

@CLASS
test1

@method2[]

@main[]
	^use[class1.p;
		$.replace(true)
	]
	^use[class.p;
		$.replace(true)
	]
	^use[class1.p;
		$.replace(true)
	]
	$hClasses[^reflection:classes[]]
	<pre>!^json:string[$hClasses]!</pre>
	<pre>!^hClasses._at(-1)[key]!</pre>

######################################
@main[]

^sendMail[
      $.from[Сайт <info@fromdomain.ru>]
      $.to[Вася <vasya@mail.ru>]
      $.subject[как дела твои]
      $.text[Как у тебя дела? У меня - изумительно!]
]


^eval(2+3)

######################################
@sendMail[h]

^h.add[$.options[--host=mx.fromdomain.ru --port=465 --auth=login --user="info@fromdomain.ru" --passwordeval="echo -n qwerty" --tls=on --tls-starttls=off --tls-certcheck=off]]
^mail:send[$h]

$MAIL.SMTP[another.server]
^mail:send[] - сработает
$MAIL[ $.SMTP[yet.another.server] ]
^mail:send[] - будет использовано прошлое значение...