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

use MooseX::Declare;

class Camera {
    # methods ...
}
class MobilePhone {
    # methods ...
}
class CameraPhone extends(Camera, MobilePhone) {
    # methods ...
}