package TmpTypes;

use strict;
use warnings;

use MooseX::Types
-declare => [qw(NewType)];
use MooseX::Types::Moose qw(Str);

subtype 'NewType',
  as 'Str',
  where {$_ =~ /^new_/};

coerce 'NewType',
  from 'Str',
  via { 'new_'.$_ };