package Role::Logger;
use Moose::Role;
requires qw<smeg>;

package Role::App;
use Moose::Role;
has smeg => ( is => 'rw' );
with 'Role::Logger';

package App::FixIt;
use Moose;
with "Role::App";
sub run {
   print "smeg=" . shift->smeg;
}
package main;
use Moose;
App::FixIt->new( { smeg => 1 } )->run;