use strict;
use warnings;
use feature 'say', 'state';
use Devel::Peek;
use Storable qw/ freeze thaw /;

sub foo : lvalue { state $r; $$r }
foo = 42;

say ref \foo;               # SCALAR
Dump \foo;                  # Nothing interesting. Much 
                            # shorter output than one 
                            # full of magic, above.
say ${ thaw freeze \foo };  # 42