[OPINION] Perl 6 object system

Hi, /prog/. What are your thoughts on Perl 6's object system?

>>14

This is typical GUI in Java:

class Component {
  void paint() {
    // paint background
  }
}

class Button extends Components {
  void paint() {
    // paint button
  }
}

Somewhere else:

for (Component c: components) {
  c.paint();
}

It would be useless without polymorphism. Why use inheritance without polymorphism and not just composition?

Does `switch' really cost less than virtual table lookup?

Sorry for going off-topic.