presentations/rivet/namespaces.tcl (15 lines of code) (raw):
namespace eval foo {
set foovar 1
namespace eval bar {
set barvar 1
}
}
puts $::foo::bar::barvar
puts $::foo::foovar
namespace eval request {
set greeting "Hello, World"
puts -nonewline $greeting
}
namespace eval request {
puts -nonewline $greeting
}