Acme-State
view release on metacpan or search on metacpan
lib/Acme/State.pm view on Meta::CPAN
8990919293949596979899100101102103104105106107108109
# 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";
( run in 0.346 second using v1.01-cache-2.11-cpan-496ff517765 )