steals python directors and adapts to perl5

Examples/test-suite/perl5/director_enum_runme.pl

@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+use Test::More tests => 5;
+BEGIN { use_ok 'director_enum' }
+require_ok 'director_enum';
+
+{
+  package MyFoo;
+  use base 'director_enum::Foo';
+  sub say_hi { my($self, $val) = @_;
+    return $val;
+  }
+}
+
+my $b = director_enum::Foo->new();
+isa_ok $b, 'director_enum::Foo';
+my $a = MyFoo->new();
+isa_ok $a, 'MyFoo';
+
+is $a->say_hi($director_enum::hello),
+   $a->say_hello($director_enum::hi);