use warnings;
use Test::More;
-use t::Exception;
+use Test::Exception;
BEGIN {
plan skip_all => "Moose required for this test" unless eval { require Moose && Moose->VERSION('0.59') };
plan tests => 5;
}
-use t::Exception;
+use Test::Exception;
{
package Headers;
use Mouse;
use Mouse::TypeRegistry;
- subtype 'HeadersType' => sub { defined $_ && eval { $_->isa('Headers') } };
- coerce 'HeadersType' => +{
- HashRef => sub {
+ subtype 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } };
+ coerce 'HeadersType' =>
+ from 'HashRef' => via {
Headers->new(%{ $_ });
},
- };
+ ;
has headers => (
is => 'rw',