package Data::Validator::Role::Croak;
use Mouse::Role;
use Carp ();
our @CARP_NOT = qw(Data::Validator);

sub throw_error {
    my($self, $message) = @_;
    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
    Carp::croak($message);
}

no Mouse::Role;
1;
__END__

=for stopwords backtrace

=head1 NAME

Data::Validator::Role::Croak - Does not report backtrace on errors

=cut