sub guess_perl_type { my $self = shift; my $node = shift; my $obj = B::svref_2object(ref($node) ? $node : \$node); my $class = B::class($obj); return $class unless $class eq "PVMG"; my $flags = $obj->flagspv; return "PV" if $flags =~ "POK"; die "what type is $flags?"; }