Что-то не получается

G_Z 03.06.2015 23:02

@main[]
^load[http://www.parser.ru/forum/;response]{
# ^loadIfModified[^date::now(-1);http://www.parser.ru/forum/;response]{
	loaded, ^response.text.length[]=$response.CLASS_NAME
}{
	error
}


@load[URL;variable;success;error;headers;_caller]
^if(!def $_caller){
	$_caller[$caller.self]
}

^try{
	$file[^file::load[text;^taint[as-is;$URL]][
		$.headers[$headers]
	]]

	$_caller.$variable[$file]

	in load: ^response.text.length[]=$response.CLASS_NAME

	$success
}{
	$exception.handled(true)
	$error
}


@loadIfModified[date;URL;variable;success;error]
^load[$URL;$variable;$success;$error][
	$.if-modified-since[$date]
][$caller.self]

Код условный, но суть в том, что обёртка вызывает метод, который пишет в caller и его нужно как-то передать оборачиваемой функции.

load — работает, обёртка loadIfModified — нет.

---