Select Code to Download

use DateTime;
  subtype DateTime => as Object => where { $_->isa('DateTime') };

use DateTime;
  subtype 'DateTime' => as 'Object' => where { $_->isa('DateTime') };

use strict;
use warnings;

...
print "Is $thing new?    ".$obj->is_new($thing);
$thing = to_NewType('House');
print "Is $thing new?    ".$obj->is_new($thing);

package TmpTypes;

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

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

use strict;
use warnings;
use Moose::Util::TypeConstraints;
...
print "Is $thing new?    ".$obj->is_new($thing);
$thing = to_NewType('House');
print "Is $thing new?    ".$obj->is_new($thing);

package TmpTypes;

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