/trunk/Examples/perl5/import/spam.h

 1#include "bar.h"
 2
 3class Spam : public Bar {
 4 public:
 5  Spam() { }
 6  ~Spam() { }
 7  virtual void A() { 
 8    printf("I'm Spam::A\n");
 9  }
10  void B() {
11    printf("I'm Spam::B\n");
12  }
13  virtual Base *toBase() {
14    return static_cast<Base *>(this);
15  }
16  virtual Bar *toBar() {
17    return static_cast<Bar *>(this);
18  }
19  static Spam *fromBase(Base *b) {
20    return dynamic_cast<Spam *>(b);
21  }
22};
23
24