1 2 3 4 5 6 7 8 9 10 11 12 13
package Foo::Role; use Moose::Role; $::reloads{foo_role}++; has foo_role2 => ( is => 'ro', isa => 'Str', ); no Moose::Role; 1;