11 use Moose::Util::TypeConstraints;
13 subtype 'DigitSix' => as 'Num'
15 subtype 'TextSix' => as 'Str'
19 => via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
30 my $attr = SomeClass->meta->get_attribute('foo');
31 is($attr->get_value(SomeClass->new()), 'Six');
32 is(SomeClass->new()->foo, 'Six');