sub UNIVERSAL::CHECK_SCALAR (Str $class, ScalarRef $sref) {
   require Scalar::Util;
   unless (Scalar::Util::blessed($$sref) && ${$sref}->isa($class)) {
      require Carp;
      Carp::croak("...");
   }
}