X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F800_shikabased%2F801-mousex_types.t;h=1b82811857676e37d7fdc5f83ee4609f17f47a44;hb=3fa6f35df998618abdf763f4e4a060ba8f450a35;hp=e0eaca5013b1b74ca6d7aa02fe73b091717e14bb;hpb=0d9fea2202e3abf87e59f693afab640548faeef5;p=gitmo%2FMouse.git diff --git a/t/800_shikabased/801-mousex_types.t b/t/800_shikabased/801-mousex_types.t index e0eaca5..1b82811 100644 --- a/t/800_shikabased/801-mousex_types.t +++ b/t/800_shikabased/801-mousex_types.t @@ -7,7 +7,7 @@ use Test::More tests => 16; use MouseX::Types -declare => [qw/ Headers /]; use MouseX::Types::Mouse 'HashRef'; - subtype Headers, where { defined $_ && eval { $_->isa('Headers1') } }; + type Headers, where { defined $_ && eval { $_->isa('Headers1') } }; coerce Headers, from HashRef, via { Headers1->new(%{ $_ }); @@ -20,7 +20,7 @@ use Test::More tests => 16; use MouseX::Types -declare => [qw/ Headers /]; use MouseX::Types::Mouse 'HashRef'; - subtype Headers, where { defined $_ && eval { $_->isa('Headers2') } }; + type Headers, where { defined $_ && eval { $_->isa('Headers2') } }; coerce Headers, from HashRef, via { Headers2->new(%{ $_ });