However, that would only work if you were within the blork package, so if you wanted to install the method from main:: then this *blork::foo = sub { ... } is more approriate.

Well, assuming that most of these things will happen dynamically, I'll raise yours by

{   no strict 'refs';
    *{ $class . '::' . $name } = sub { ... };
}
[download]

*scnr* Update: As you already did below. *slaps-self*

---

Ordinary morality is for ordinary people. -- Aleister Crowley