package MyClass;
use Moose;
use Moose::Util::TypeConstraints;

has 'fname' => (
    is => 'rw',
    isa => subtype('Str', where { /^[\w-]+$/ }),
);

##</code><code>##

package MyClass;
use Moose;
use Moose::Util::TypeConstraints;

subtype 'StringWithDashes'
    => as 'Str'
    => where { /^[\w-]+$/ };

has 'fname' => (
    is => 'rw',
    isa => 'StringWithDashes'
);

has 'lname' => (
    is => 'rw',
    isa => 'StringWithDashes'
);

##</code><code>##

use Email::Valid;

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