1 files changed, 18 insertions, 0 deletions
diff --git a/Examples/perl5/import/base.h b/Examples/perl5/import/base.h
new file mode 100644
index 000000000..be3cdef7d
--- /dev/null
+++ b/Examples/perl5/import/base.h
@@ -0,0 +1,18 @@
+#include <stdio.h>
+
+class Base {
+ public:
+     Base() { };
+    ~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);
+     }
+};
+ 
+