my $class = ref $proto || $proto;
    ...
    bless $self, $class;