perl -Moose=Foo -e 'has bar => (isa => "Str|Int"); print Foo->new(bar => 100)->dump; print Foo->new(bar => "Hello")->dump;' ;