view release on metacpan or  search on metacpan

lib/Acme/State.pm  view on Meta::CPAN

89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
                # when we eval something in code in main::, it comes up as being exported from main::.  *sigh*
                $node->{$k} = *{$package . $k}{CODE};
            }
        } else {
            $node->{$k} = *{$package.$k}{SCALAR} unless ref(*{$package.$k}{SCALAR}) eq 'GLOB';
        }
    }
    return $node;
}->('main::');
 
# use Data::Dumper; print "debug: ", Data::Dumper::Dumper($tree), "\n";
 
local $Storable::Deparse = $wantcoderefs;
 
my $save_fn = save_file_name();
 
# $save_fn =~ s{/-}{/x}g; warn "saving to: ``$save_fn.new''";
 
Storable::nstore $tree, $save_fn.'.new' or die "saving state failed: $!";
 
# warn "okay, Storable::nstore done";