Move parent from ext/ to cpan/

1 files changed, 21 insertions, 0 deletions

diff --git a/cpan/parent/t/compile-time.t b/cpan/parent/t/compile-time.t
new file mode 100644
index 0000000000..be6d54cb74
--- /dev/null
+++ b/cpan/parent/t/compile-time.t
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Test::More tests => 3;
+
+{
+    package MyParent;
+    sub exclaim { "I CAN HAS PERL?" }
+}
+
+{
+    package Child;
+    use parent -norequire, 'MyParent';
+}
+
+my $obj = {};
+bless $obj, 'Child';
+isa_ok $obj, 'MyParent', 'Inheritance';
+can_ok $obj, 'exclaim';
+is $obj->exclaim, "I CAN HAS PERL?", 'Inheritance is set up correctly';
+