util_memoize_cached_p (public)

 util_memoize_cached_p script [ max_age ]

Defined in packages/acs-tcl/tcl/memoize-procs-naviserver.tcl

Check whether script's value has been cached, and whether it was cached no more than max_age seconds ago.

Parameters:
script (required)
A Tcl script.
max_age (optional)
Maximum age of cached value in seconds.
Returns:
Boolean value.

Partial Call Graph (max 5 caller/called nodes):
%3 test_util_memoize_cache util_memoize_cache (test acs-tcl) util_memoize_cached_p util_memoize_cached_p test_util_memoize_cache->util_memoize_cached_p test_util_memoize_cache_flush util_memoize_cache_flush (test acs-tcl) test_util_memoize_cache_flush->util_memoize_cached_p test_util_memoize_cache_script util_memoize_cache_script (test acs-tcl) test_util_memoize_cache_script->util_memoize_cached_p ad_get_client_property ad_get_client_property (public) ad_get_client_property->util_memoize_cached_p package_object_view_reset package_object_view_reset (public) package_object_view_reset->util_memoize_cached_p package_recreate_hierarchy package_recreate_hierarchy (public) package_recreate_hierarchy->util_memoize_cached_p

Testcases:
util_memoize_cache, util_memoize_cache_script, util_memoize_cache_flush
Source code:
    if {$max_age ne ""} {
        ns_log warning "util_memoize_cached_p: ignore max_age $max_age for $script"
    }
    return [ns_cache_get util_memoize $script .]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: