Select Code to Download

    my $object = bless($reference, "MyClass");

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

    $object->some_function($arg1);

    $object->{class_name}::some_function($object, $arg1);

    MyClass::some_function($object, $arg1);