9 my $require_version = 0.68;
10 plan skip_all => "Moose $require_version required for this test" unless eval { require Moose && Moose->VERSION($require_version) };
19 has 'foo' => ( is => 'rw' );
24 use Mouse::Util::TypeConstraints;
26 type 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } };
27 coerce 'HeadersType' =>
28 from 'HashRef' => via {
29 Headers->new(%{ $_ });
43 ::lives_ok { extends qw(Response) } "extend Mouse class with Moose";
47 my $r = Mosponse->new(headers => { foo => 'bar' });
48 isa_ok($r->headers, 'Headers');
50 is $r->headers->foo, 'bar';
55 my $r = Mosponse->new;
56 $r->headers({foo => 'yay'});
57 isa_ok($r->headers, 'Headers');
58 is($r->headers->foo, 'yay');