A-M baby

Task/Inheritance-Single/Perl/inheritance-single-1.pl

@@ -0,0 +1,3 @@
+package Animal;
+#functions go here...
+1;

Task/Inheritance-Single/Perl/inheritance-single-2.pl

@@ -0,0 +1,5 @@
+package Dog;
+use Animal;
+@ISA = qw( Animal );
+#functions go here...
+1;

Task/Inheritance-Single/Perl/inheritance-single-3.pl

@@ -0,0 +1,5 @@
+package Cat;
+use Animal;
+@ISA = qw( Animal );
+#functions go here...
+1;

Task/Inheritance-Single/Perl/inheritance-single-4.pl

@@ -0,0 +1,5 @@
+package Lab;
+use Dog;
+@ISA = qw( Dog );
+#functions go here...
+1;

Task/Inheritance-Single/Perl/inheritance-single-5.pl

@@ -0,0 +1,5 @@
+package Collie;
+use Dog;
+@ISA = qw( Dog );
+#functions go here...
+1;

Task/Inheritance-Single/Perl/inheritance-single-6.pl

@@ -0,0 +1,17 @@
+use MooseX::Declare;
+
+class Animal {
+    # methods go here...
+}
+class Dog extends Animal {
+    # methods go here...
+}
+class Cat extends Animal {
+    # methods go here...
+}
+class Lab extends Dog {
+    # methods go here...
+}
+class Collie extends Dog {
+    # methods go here...
+}