package Nonreblessable;
use 5.008008;
sub new {
    my $self = bless \my $obj;
    Internals::SvREADONLY($obj,1);
    $self
}