#!perl
use strict;

package foo;
use Mouse;
use Mouse::Util::TypeConstraints;

# Converted to Mouse:
enum 'ErrorMode' => qw<carp error both>;
has 'error_mode' => ( is => 'rw', isa => 'ErrorMode', default => 'error' );

package main;
use strict;
use Carp;
$Carp::Internal{ 'Mouse::Util' } = 1;
$Carp::Verbose = 0;
my $foo = foo->new( error_mode => 'silent' );