view obj refs   =>   count
obj   input value

Refs returns the internal Tcl reference count of obj. This operator is only for internal use.

Example:
set v [view A def {1 2 3}]

view $v refs
5