$VERSION $XS_VERSION %DeadBits %Bits %Offsets %EXPORT_TAGS
$Verbose $ExportLevel $Debug %Cache @EXPORT_OK @ISA
####
use strict;
use warnings;
use Devel::Gladiator qw/walk_arena/;
use Devel::Size qw/size/;
my $arena = walk_arena();
my $i = 0;
$| = 1;
for (@$arena) {
next unless ref eq 'SCALAR';
next if not defined $$_;
printf '%4d : %16s : "%s" :', $i++, $_, $$_;
print size($_);
print "\n";
}
@$arena = ();
####
0 : SCALAR(0xf8a4f8) : "$" :56
1 : SCALAR(0xf8a510) : "::" :128
.
.
21 : SCALAR(0xf3bbb0) : "1.03" :56
22 : SCALAR(0xf3bc10) : "Devel::Size" :85
23 : SCALAR(0xf3bc28) : "$VERSION" :Segmentation fault (core dumped)