use Test::More;
use Test::Exception;
BEGIN {
- plan skip_all => "Moose required for this test" unless eval { require Moose && Moose->VERSION('0.59') };
+ my $require_version = 0.68;
+ plan skip_all => "Moose $require_version required for this test" unless eval { require Moose && Moose->VERSION($require_version) };
plan tests => 5;
}
{
package Response;
use Mouse;
- use Mouse::TypeRegistry;
+ use Mouse::Util::TypeConstraints;
- subtype 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } };
+ type 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } };
coerce 'HeadersType' =>
from 'HashRef' => via {
Headers->new(%{ $_ });
}
{
- local $TODO = "Doesn't work in the constructor yet?";
my $r = Mosponse->new(headers => { foo => 'bar' });
isa_ok($r->headers, 'Headers');
- is(eval{$r->headers->foo}, 'bar');
+ lives_and {
+ is $r->headers->foo, 'bar';
+ };
}
{