2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
14 use Mouse::Util::TypeConstraints;
16 subtype 'DigitSix' => as 'Num'
18 subtype 'TextSix' => as 'Str'
22 => via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
33 my $attr = SomeClass->meta->get_attribute('foo');
34 is($attr->get_value(SomeClass->new()), 'Six');
35 is(SomeClass->new()->foo, 'Six');