package My::Class;

use InsideOut::Helper qw( bless );

sub new {
  my $class = shift;
  my $self = \do { my $scalar };
  bless $self, $class;
}