#!/usr/bin/perl
    #------------------------------------------------------------------------------
    use v5.32;
    use Object::Pad;

    role Role::FeederThings {
      requires earnDosh;
      requires buyKFC;
    }

    role Role::TaxiDriver {
      requires waitForever;
      requires driveForMiles;
    }

    role Role::DadThings
      :does(Role::FeederThings)
      :does(Role::TaxiDriver) {
    }

    class Parent
      :does(Role::DadThings) {

    }