Help for this page

Select Code to Download


  1. or download this
    ## Poor example: Cwd pulled in with use so %Cwd:: is fully populated 
    $ perl -E 'say qq{Cwd stash keys: }, scalar %Cwd::; use Cwd; say qq{Cw
    +d stash keys after use: }, scalar %Cwd::; say qq{Config stash keys: }
    +, scalar %Config::;require "Config.pm"; say qq{Config stash keys afte
    +r requiire: }, scalar %Config::;'
    ...
    Cwd stash keys after use: 39
    Config stash keys: 1
    Config stash keys after requiire: 20