use Sub::Exporter;
use Scalar::Util 'blessed';
-use Carp 'confess';
-use Class::MOP 0.56;
+use Class::MOP 0.57;
-our $VERSION = '0.55_01';
+our $VERSION = '0.57';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub apply_all_roles {
my $applicant = shift;
- confess "Must specify at least one role to apply to $applicant" unless @_;
+ Moose->throw_error("Must specify at least one role to apply to $applicant") unless @_;
my $roles = Data::OptList::mkopt( [@_] );
}
( $_->[0]->can('meta') && $_->[0]->meta->isa('Moose::Meta::Role') )
- || confess "You can only consume roles, "
+ || Moose->throw_error("You can only consume roles, "
. $_->[0]
- . " is not a Moose role"
+ . " is not a Moose role")
foreach @$roles;
if ( scalar @$roles == 1 ) {