Posted to tcl by kbk at Sun Feb 08 00:01:51 GMT 2009view pretty

% oo::class create test {
    constructor {} {}
    method foo {} {puts "foo"}; unexport foo
    method bar {} {puts "bar"; my foo}
}
::test
% test create x
::x
% x foo
unknown method "foo": must be bar or destroy
% x bar
bar
foo