use Test::More;
use MooseX::Declare;

my @log = ();
BEGIN { $SIG{__WARN__} = sub { push @log, \@_ } };

role Bar {
  before do_foo {
    push @log, { before => 'string' };
  }
}

class Foo with Bar {
  method do_foo {
    push @log, { class => 'string' };
  }
}

Foo->new->do_foo;

is_deeply(\@log, [{'before', 'string'}, {'class','string'}] );

done_testing;