package Cmds; #{{{ use Readonly; sub RO(\[$@%]@){goto &Readonly}; use File::SearchPath qw /searchpath/; RO our $sig => "%%"; #improbable filename prefix RO our $Dflt_Path => "/bin:/usr/bin:/sbin:/usr/sbin:/usr/local/bin"; sub skey($) {$sig.$_[0]} our %Global_Cache = ( # Global cache for non-OO use skey("asis") => 0, skey("Firstcap") => 1, skey("prefix_ln") => 0, skey("post_ln") => 0, skey("SAFE_PATH") => $Dflt_Path, skey("PATH") => $Dflt_Path, skey("path_safe") => 1, skey("imp_init") => 1, #global already is initialized! ;-") );