3 ms·
Yes. But if you can figure out what it does you’re going to be really sad. { eval "package " . __PACKAGE__ . '::' . (0+$class) . "; use base qw(" . join(' ', m
by floatingatoll 7y ago
Yes. But if you can figure out what it does you’re going to be really sad.
{ eval "package " . __PACKAGE__ . '::' . (0+$class) . "; use base qw(" . join(' ', map { ref($_) || $_ } @_) . ");" }
This might help:
my $package = bless $class, __PACKAGE__ . '::' . (0+$class);
Or this:
return Devel::Pointer::unsmash_hv(substr(ref $self, 2+length(__PACKAGE__)));
}