Select Code to Download

#!/usr/bin/env perl

...
    say 'CACHED:  ', $cfg;
    return $cfg;
}

INITIAL: HASH(0x7ff0f8802ee8)
CACHED:  HASH(0x7ff0f8802ee8)
...
CHANGE2: HASH(0x7ff0f8829c38)
CACHED:  HASH(0x7ff0f8802ee8)
mouse

sub cfg_cache {
    state $cfg_ref = \$cfg;
    say 'CACHED:  ', $$cfg_ref;
    return $$cfg_ref;
}

INITIAL: HASH(0x7fd539802ee8)
CACHED:  HASH(0x7fd539802ee8)
...
CHANGE2: HASH(0x7fd539829c38)
CACHED:  HASH(0x7fd539829c38)
rat

sub cfg_cache {
    state $cfg_ref = { %$cfg };
    say 'CACHED:  ', $cfg_ref;
    return $cfg_ref;
}

INITIAL: HASH(0x7fd88c002ee8)
CACHED:  HASH(0x7fd88c029c50)
...
CHANGE2: HASH(0x7fd88c029c38)
CACHED:  HASH(0x7fd88c029c50)
cat