sub bless {
      my ($reference, $class) = @_;
      $reference->{class_name} = $class;
      return $reference;
    }