package require Itcl
itcl::class Person {
    public variable name ""
    public variable phone ""
    public variable email ""

    constructor {args} {
 set aaa "sd"
 eval configure $args
    }
 destructor {}
}
Person aaa -name "aa" -phone "1243" -email "ab@cc.com"
aaa cget -name