tcl/tests/pkg/import.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package provide fubar 1.0
    
namespace eval ::fubar:: {
    #
    # export only public functions.
    #
    namespace export {[a-z]*}
}

proc ::fubar::foo {bar} {
    puts "$bar"
    return true
}

namespace import ::fubar::foo