A-M baby

Task/Inheritance-Multiple/Perl/inheritance-multiple-1.pl

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

Task/Inheritance-Multiple/Perl/inheritance-multiple-2.pl

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

Task/Inheritance-Multiple/Perl/inheritance-multiple-3.pl

@@ -0,0 +1,6 @@
+package CameraPhone;
+use Camera;
+use MobilePhone;
+@ISA = qw( Camera MobilePhone );
+#functions go here...
+1;

Task/Inheritance-Multiple/Perl/inheritance-multiple-4.pl

@@ -0,0 +1,3 @@
+package CameraPhone;
+use base qw/Camera MobilePhone/;
+#functions go here...

Task/Inheritance-Multiple/Perl/inheritance-multiple-5.pl

@@ -0,0 +1,11 @@
+use MooseX::Declare;
+
+class Camera {
+    # methods ...
+}
+class MobilePhone {
+    # methods ...
+}
+class CameraPhone extends(Camera, MobilePhone) {
+    # methods ...
+}