Class ::nsmcp::Object (public)

 ::nx::Class ::nsmcp::Object

Defined in /usr/local/ns/tcl/nsmcp/00-lifecycle.tcl

Testcases:

No testcase defined.

Source code:

    :method "dict getdef" {dictionary key default} {
        #
        # Read a dictionary entry with an explicit default for a missing key.
        #
        # Preserve stored empty, false and zero values. Invalid dictionaries
        # raise the normal Tcl error; the default applies only to absence.
        #
        # @param dictionary Dictionary to inspect.
        # @param key Entry key.
        # @param default Result when the key is absent.
        #
        # @return The stored value, or default when key is absent.
        #

        if {[dict exists $dictionary $key]} {
            return [dict get $dictionary $key]
        }
        # dict exists also returns false for malformed input. Validate before
        # accepting absence so a corrupt dictionary is not treated as empty.
        dict size $dictionary
        return $default
    }

XQL Not present:

Generic, PostgreSQL, Oracle