package Foo {
  sub new {
    bless {}, shift;
  }
  sub foo {
    print "foo\n";
  }
}

package Bar {
  use Moo;  # NOT Moo::Role
  extends "Foo";
}