Select Code to Download

package MyClass;
use Moose;
...
    is => 'rw',
    isa => subtype('Str', where { /^[\w-]+$/ }),
);

package MyClass;
use Moose;
...
    is => 'rw',
    isa => 'StringWithDashes'
);

use Email::Valid;

...
    is => 'rw',
    isa => subtype('Str', where { Email::Valid->address($_) })
);