10 eval{ require Moose && Moose->VERSION(Mouse::Spec->MooseVersion) };
11 plan skip_all => "Moose $Mouse::Spec::MooseVersion required for this test" if $@;
20 has 'foo' => ( is => 'rw' );
25 use Mouse::Util::TypeConstraints;
27 type 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } };
28 coerce 'HeadersType' =>
29 from 'HashRef' => via {
30 Headers->new(%{ $_ });
44 ::lives_ok { extends qw(Response) } "extend Mouse class with Moose";
48 my $r = Mosponse->new(headers => { foo => 'bar' });
49 isa_ok($r->headers, 'Headers');
51 is $r->headers->foo, 'bar';
56 my $r = Mosponse->new;
57 $r->headers({foo => 'yay'});
58 isa_ok($r->headers, 'Headers');
59 is($r->headers->foo, 'yay');