use MooX::Press (
  prefix => 'MyApp',
  role => [
    'Livestock',
    'Pet',
    'Milkable' => {
      can => [
        'milk' => sub { print "giving milk\n"; },
      ],
    },
  ],
  class => [
    'Animal' => {
      has => [
        'name'   => { type => 'Str' },
        'colour',
        'age'    => { type => 'Num' },
        'status' => { enum => ['alive', 'dead'], default => 'alive' },
      ],
      subclass => [
        'Panda',
        'Cat'  => { with => ['Pet'] },
        'Dog'  => { with => ['Pet'] },
        'Cow'  => { with => ['Livestock', 'Milkable'] },
        'Pig'  => { with => ['Livestock'] },
      ],
    },
  ],
);

my $porky = MyApp->new_pig(name => 'Porky');
print $porky->status, "\n"; 

##</code><code>##

use v5.14;
use strict;
use warnings;
use Data::Dumper;

use MooX::Press::Declare
	prefix  => 'MyApp',
	toolkit => 'Moo';

class Quux {
	version 3.1;
	extends Quuux;
	with Xyzzy;
	
	has foo : ( is => ro, type => 'Foo' );
	has bar : ( type => 'Barrr' );
	has nooo!;   # exclamation mark means required
	
	constant yeah = 42;
	
	method say_stuff {
		my $self = shift;
		say $self->yeah + $self->nooo;
	}	
}

my $obj = MyApp->new_quux(
	foo  => MyApp->new_foo,
	bar  => MyApp->new_bar_baz,
	nooo => 1,
);

print Dumper($obj);

$obj->say_stuff;

# Note the order you define stuff mostly doesn't matter.
# We used these classes above and define them now.

class Quuux;

role Xyzzy;

class Foo;

class Bar::Baz {
	type_name Barrr;
}