package MyApp::Zoo;
  use MooX::Press (
    role => [
      'Aquatic' => {
        can => [
          swim => sub { print "swimming\n" },
        ],
      },
      'Flight',
    ],
    class => [
      'Animal' => {
        has => [qw( $name $colour $age )],
        subclass => [
          'Fish' => {
            with => 'Aquatic',
            subclass => [qw( Shark Ray )],
          },
          'Bird' => { with => 'Flight' },
          'Mammal' => {
            subclass => [
              qw( Panda Goat ),
              'Kangaroo' => { can => [ jump => sub { ... } ] },
              'Dolphin'  => { with => 'Aquatic' },
              'Bat'      => { with => 'Flight' },
            ],
          },
        ],
      },
    ],
  );