Examples/perl5/import/base.h

#include <stdio.h>

class Base {
 public:
     Base() { };
     virtual ~Base() { };
     virtual void A() {
         printf("I'm Base::A\n");
     }
     void B() {
       printf("I'm Base::B\n");
     }
     virtual Base *toBase() {
       return static_cast<Base *>(this);
     }
};