
            #zip file with Tcl loader prepended.
            #generated using modpod::make_zip_modpod
            if {[catch {file normalize [info script]} modfile]} {
                error "modpod zip stub error. Unable to determine module path. (possible safe interp restrictions?)"
            }
            if {$modfile eq "" || ![file exists $modfile]} {
                error "modpod zip stub error. Unable to determine module path" 
            }
            set moddir [file dirname $modfile]
            set mod_and_ver [file rootname [file tail $modfile]]
            lassign [split $mod_and_ver -] moduletail version
            if {[file exists $moddir/#modpod-$mod_and_ver]} {
                source $moddir/#modpod-$mod_and_ver/$mod_and_ver.tm
            } else {
                #determine module namespace so we can mount appropriately
                proc intersect {A B} {
                    if {[llength $A] == 0} {return {}}
                    if {[llength $B] == 0} {return {}}
                    if {[llength $B] > [llength $A]} {
                        set res $A
                        set A $B
                        set B $res
                    }
                    set res {}
                    foreach x $A {set ($x) {}}
                    foreach x $B {
                        if {[info exists ($x)]} {
                            lappend res $x
                        }
                    }
                    return $res
                }
                set lcase_tmfile_segments [string tolower [file split $moddir]]
                set lcase_modulepaths     [string tolower [tcl::tm::list]]
                foreach lc_mpath $lcase_modulepaths {
                    set mpath_segments [file split $lc_mpath]
                    if {[llength [intersect $lcase_tmfile_segments $mpath_segments]] == [llength $mpath_segments]} {
                        set tail_segments [lrange [file split $moddir] [llength $mpath_segments] end] ;#use propertly cased tail
                        break
                    }
                }
                if {[llength $tail_segments]} {
                    set fullpackage [join [concat $tail_segments $moduletail] ::] ;#full name of package as used in package require
                    set mount_at #modpod/[file join $tail_segments]/#mounted-modpod-$mod_and_ver
                } else {
                    set fullpackage $moduletail
                    set mount_at #modpods/#mounted-modpod-$mod_and_ver
                }

                if {[info commands tcl::zipfs::mount] ne ""} {
                    #argument order changed to be consistent with vfs::zip::Mount etc
                    #early versions: zipfs::Mount mountpoint zipname
                    #since 2023-09:  zipfs::Mount zipname mountpoint
                    #don't use 'file exists' when testing mountpoints. (some versions at least give massive delays on non-existance)
                    set mountpoints [dict keys [tcl::zipfs::mount]]
                    if {"//zipfs:/$mount_at" ni $mountpoints} {
                        #despite API change tcl::zipfs package version was unfortunately not updated - so we don't know argument order without trying it 
                        if {[catch {
                            #tcl::zipfs::mount $modfile //zipfs:/#mounted-modpod-$mod_and_ver ;#extremely slow if this is a wrong guess (artifact of aforementioned file exists issue ?)
                            puts "tcl::zipfs::mount $modfile $mount_at"
                            tcl::zipfs::mount $modfile $mount_at 
                        } errM]} {
                            #try old api
                            puts stderr ">>> tcl::zipfs::mount //zipfs://$mount_at  $modfile"
                            tcl::zipfs::mount //zipfs:/$mount_at $modfile
                        }
                        if {![file exists //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} {
                            puts stderr "zipfs mounts: [zipfs mount]"
                            #tcl::zipfs::unmount  //zipfs:/$mount_at
                            error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage"
                        }
                    } 
                    #  #modpod-$mod_and_ver subdirectory always present in the archive so it can be conveniently extracted and run in that form
                    source //zipfs:/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm
                } else {
                    #fallback to slower vfs::zip
                    #NB. We don't create the intermediate dirs - but the mount still works 
                    if {![file exists $moddir/$mount_at]} {
                        if {[catch {package require vfs::zip} errM]} {
                            set msg "Unable to load vfs::zip package to mount module $mod_and_ver"
                            append msg \n "If vfs::zip is unavailable - the module can still be loaded by manually unzipping the file $modfile in place."
                            append msg \n "The unzipped data will all be contained in a folder named #modpod-$mod_and_ver in the same parent folder as $
                        }
                        set fd [vfs::zip::Mount $modfile $moddir/$mount_at]
                        if {![file exists $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm]} {
                            vfs::zip::Unmount $fd $moddir/$mount_at
                            error "Unable to find $mod_and_ver.tm in $modfile for module $fullpackage"
                        }
                    }
                    source $moddir/$mount_at/#modpod-$mod_and_ver/$mod_and_ver.tm
                }
            }
            #zipped data follows
        PK   S„îX×Êºà
  Ï'  .   #modpod-packageTest-0.1.0/packageTest-0.1.0.tmµZësÛ6ÿ®¿b+)“Ö=*v§Ó¹cS·®›ä<­ÓLìo*Ç‘Œ3E² èHÑð¿]€ˆ=ì”“Xìþö‰Å’#pNP~HŸƒ\3)±Èçp¥Jf¾qäBÈÙ#uÏá?úš¬V«É
X
"¥^&K±‚%{à/!–Jÿý˜}C–Lq˜Ëx	¯“‡Å¹3ËD<r™"‰Z©Á1|@^HÌ£T\"e-€Á¯7¿Õë«[HÕ:ä
ŸG8sŽw’#íTá²eÂ”˜‰P¨5|ê^£¾EÜÓuªør‚\.ã€¤Éç\JèYÕ|ÁŒÅBÌBÃFD~˜ZüF³C1ûÜ>à‡VqJ²èæ?°É“8*–kâùí·øï ÿ8ùëËoà»Óï¾×:ùå¸æ
uÀ"ÂßI‚8Ù¦äuKÒŸNÎ&§dGšœ„L!è%Ð…6(ï—zÓ×ë,Jî‹¹àÁ¹ÅéMÇbb_Åq˜Â=ghº#—ŸœœÀW%‰ÁhºdQ‚‚ÝÍHh[Ì»ed!¿Û’ÜÈîá:?NÖR,îICº§„
yÀS6×z1\|¸Ê= œ½\òHÁÆqà=[rH¹öycPF–çä*¢!E¢g8NN´¡ìAëÚ¢ý›µ)àHé’€Z[äˆD ägBr[dâóÀ×Ÿb¤`Ä§[ú™0É<pŽ´[[ó¥
þÄØ|üSM;.îì<Z“ÍÊe—1æD¥[Žt†ÀG£Ò`úl‰jtOPù<ò·Â¤”È˜­Ò…ÝÎ8¢À">óÀê07£üñïÉNk€’‚ëbšèa˜ëú†ä"mËC <˜–K6%gíÍÁŠûŽQB°kQà0šaÔ„‰ù|ö™¡MKOÕdšòhý¢Y¼/æ»ßÇA»®²4…SAŠÀù‘$ªuÀYh{QIyƒñj©‹îÙ~ºy_‘jS!S™Æ}é€ÏE$huAPÌa3Ñ<¦}ó)&iÐÏp×‹”çº´ëË9Þ»KÙ2	ù™üoómbƒÁŠeK.q/FSŽ¬9–j}½WC‹ç¯Ý¾ÄÌƒË?.nn0ÙjâmIÚË,¸–ÆxéZruã.@ÌCà,ocÜÓ0õY3u¨[ï7dÄÒk	`Û]C3»¦%nYCšäÂ˜¨›³ò¶Ôû´^ÅêöG;š¥Î¶%ò-I¶ïv­3ÃÍX¼ô8³#;%¤Ÿ›KŽK¿R™úÄ<å˜ëVk]·™,ÐÏH+›¬’Xâí)s>{'ùZ‡¸Ñ>¢Ft…^L /ãO\úˆNÓ=2)t³ZnPK½ÈuëM ÿ6£j:Œdì³7a¡=l‡½Œ¥®½`žE¾q*¬mÑ»£tP IdìC•:’3Ð{T¡¸®[ß7Á8EPå;p	}‰ÔóÏ±)ÕÐ.ŸL&?çžgSÐÒØ5D%˜zžä*“ã‡aq7×;HŠO<é`.NC¥Bî2,Uäs[¾*¸SÄVº¶¯/~¿zÿ>\\þ~ñîÜ¾¹¹Õ*Ç²sÜÁËÛŒ‰‹K¹"Vœô6bû"š&­hy6(ª¶€¹n)r‰¢¦Yc!nÁº`RcÈ«o-Öu«µÚUMåþm•nÍK¹êÒúxÏ²Šü.ºGÓ‹!-wÚ=Af‘q¹íq&%[klõØä-ä¥ùl[Öºó{2¹?8Êºlš¡Û>ò0Žt±`¼ºˆÜ–E·WãÆ²}c¸Å
­Súwîº¥Ž¦s"ã7²e“@Ûóóó6«Á^ÑpN6È¨ÇÍ<©Ç€•NÓ‰÷Û¶Òfy6Ä”…>²‚é"ŒgàD15#B†	Ì©…þ_Œ¿Ç%ÁÈØàÀƒ’b"„ÏëäTÌžR1OgÂæÌ¤œù÷úˆ‚º*qµ£Kuª$<çB¢«'C›šý5œv)¤¼B–Ð!ª‚O‹:'ç­»y[‰E–j[ÃyíÐtdå}vÓs[Ã$ùW¥è!êÆH®•È:¶%ê´näi
¥©ÃðÕ°m2m…°¡yðÓOpÖ‡EÓ–¸!®PúÞ©	.dÝ?3éß'ywË‡XâìÅ1%‹0øpJÅ™sÖ–µ®Œ˜b¥> €ulh‰2jJg­	u›c\ã•Wî2‡ñÈNEïT!¦5,}†E¢2ÈPzI¤^B+¼‰ÛÁ(À›¹¦jDM;l(cèCL§({"¦™;õLù–R\Ú— Ë¬÷ÊóÊ¨sÞ:á0‡“‰>úì•7B]¥ìcÏ¦}ŒÈ=s§ZZ3ÌöEüÇ‘äËø‘‹ŠJ‡R‹fW“Šª—La†ßœäuðheœz½é«³†Ð«z]š4Fåü;2äÉqn½ÒˆM/²^tUJÑ²õgpTnj¦{kÚ%ÃzÐt:‚±Û‚º¶*ŠçZÖ¯¢\û¦WMÍ–›ÃWÌï,MaÜEø8û5¹u±9 õ6Éà‘·3M•XŒâü{ƒŽò·T.Ímëóyù†j¬±mÚŽÌSY­òäŠ_¯Fq®u~B|YBëÕ=GÙþ×K¬¨	õ‡Ÿ>E2Í•·u{|YêiôPn\ñÙq&é|ÖÉ?
Z‡F¨¹¥à>Ç¤ãÀ´ò<÷âò†Î9\Ìè$¬bm :ô:o¯þxãBñ¼»j‘/m?Œ²%YßöÚI;‡o²ñ%ÍsÚë¯ÓöQùPñÞ|üøçG<& ·©n)öÑù+rèú+šš°Ó%Èæ%¯é&|ˆ)w3&mêÔ‰˜úaì?ù—õ¯”ã¡%À
Ø)î¿ø¯ûâÚ}qãµQµRj#‰ã·é™Ü±û!›H%zÖO”µÖR O[•SS
ï öDw(Î’&‘ÑWï9v³ðù!gQ–[=;!>#—ù<$$d3Ý¬0š~N>«È<Yæ˜¸«~mõs‹²ÞˆL%ú c¥®z\Ýmµ€úÚ\=õjq†šrk±Uny\‹ý¹?ŠÀêÐMÛ}¢Ð0tòíâ]í|ûáAÔÕJ.ÚûÇ¶õíëßè$ÄäZ7Mÿ¡¿~û»ü¶Â06§öoý¯ß&<s4ÏŽÍtÓÇ¯•T7òÕ=SºÔ¡Ó<5Äé}Ò¡mü®Ž¾Ö^ž)ýâÎÓúˆÒuuW¿$óEÚú¦zbLgUSðOù¼ñ“':þ3_À)½âŠžäEóð~¯6oX•F{¢»"+Qt9µJZN‡×‘3oÐÓ€A3ÿÙ‰hzàó»ºyÓ~£dkÐn×Û½|ýFPÅÎÒÿŽ”yuâÿPK    S„îX×Êºà
  Ï'  .           ¶w  #modpod-packageTest-0.1.0/packageTest-0.1.0.tmPK      \   È     