Re^4: Autovivification sucking the life out of me

Select or download this

use strict;
use warnings;
...

    warn sprintf "at end: BAR '%s'\n",
        ! exists $foo{BAR} ?  '<absent>' : ! defined $foo{BAR} ? '<und
+ef>' : $foo{BAR};

Select or download this

at start: BAR '<absent>'
at end: BAR '<absent>'

Select or download this

at start: BAR '<absent>'
at end: BAR '<undef>'

Select Code to Download