MooseX::DOES module proposal

mx_does_example.pl

package R;
use Moose::Role;

# My::Role::Foo is just a string which affects DOES() behaviour, nothing else
# plan for implementation:
# 1) add MX::Does::Role role to R which wraps DOES with around DOES => sub { ... }
# 2) call $role_metaclass->add_attribute('additional_DOES', ...)
# 3) iterate over role metaclasses in DOES wrapper in MX::Does::Role
use MooseX::DOES qw/ My::Role::Foo My::Role::Bar /;

package X;
use Moose;
with 'R';

say X->new->DOES('My::Role::Foo'); # 1
say X->new->does('My::Role::Foo'); # 0