use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More;
{
package SomeClass;
=> where { /^6$/ };
subtype 'TextSix' => as 'Str'
=> where { /Six/i };
- coerce 'TextSix'
- => from 'DigitSix'
+ coerce 'TextSix'
+ => from 'DigitSix'
=> via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
has foo => (
is($attr->get_value(SomeClass->new()), 'Six');
is(SomeClass->new()->foo, 'Six');
+done_testing;