1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
package Moose::Exception::InvalidHasProvidedInARole; our $VERSION = '2.1405'; use Moose; extends 'Moose::Exception'; with 'Moose::Exception::Role::Role'; has 'attribute_name' => ( is => 'ro', isa => 'Str', required => 1, ); sub _build_message { "Usage: has 'name' => ( key => value, ... )"; } 1;