MooX::Types::MooseLike::Base demo

moox-types-demo.pl

use 5.016;

package Example {
use Moo;
use MooX::Types::MooseLike::Base qw(Int Str);

has 'foo' => ( is => 'ro', isa => Str, default => sub { 'bar' } );
has 'qux' => ( is => 'ro', isa => Int, default => sub { 123 }   );

1;
}

my $example = Example->new(
    qux => "foo"
);

Output:

$ perl d.pl
isa check for "qux" failed: foo is not an integer! at (eval 13) line 60.
    Example::new('Example', 'qux', 'foo') called at d.pl line 13