puts "Itcl=[package require Itcl]"

itcl::class Base {
   private variable _baseV1 "BaseValue"
   private variable _baseArray
   constructor {} {
      array set _baseArray {
         one  1
         two  2
      }
   }
}

itcl::class Cls {
   inherit Base
}

set o1 [Cls #auto]

puts "_baseV1    scope = [$o1 info variable _baseV1 -scope]"
set sba [$o1 info variable _baseArray -scope]
puts "_baseArray scope = $sba"
puts "_baseArray get   = [array get $sba]"
