Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
        say 'CACHED:  ', $cfg;
        return $cfg;
    }
    
  2. or download this
    INITIAL: HASH(0x7ff0f8802ee8)
    CACHED:  HASH(0x7ff0f8802ee8)
    ...
    CHANGE2: HASH(0x7ff0f8829c38)
    CACHED:  HASH(0x7ff0f8802ee8)
    mouse
    
  3. or download this
    sub cfg_cache {
        state $cfg_ref = \$cfg;
        say 'CACHED:  ', $$cfg_ref;
        return $$cfg_ref;
    }
    
  4. or download this
    INITIAL: HASH(0x7fd539802ee8)
    CACHED:  HASH(0x7fd539802ee8)
    ...
    CHANGE2: HASH(0x7fd539829c38)
    CACHED:  HASH(0x7fd539829c38)
    rat
    
  5. or download this
    sub cfg_cache {
        state $cfg_ref = { %$cfg };
        say 'CACHED:  ', $cfg_ref;
        return $cfg_ref;
    }
    
  6. or download this
    INITIAL: HASH(0x7fd88c002ee8)
    CACHED:  HASH(0x7fd88c029c50)
    ...
    CHANGE2: HASH(0x7fd88c029c38)
    CACHED:  HASH(0x7fd88c029c50)
    cat