package foo; sub foo { print "foo\n"; } package bar; use Moo::Role; extends 'foo';