X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01-basic.t;fp=t%2F01-basic.t;h=58b24cb73e04697ae88c349b9135cbc3f63a3a7e;hb=c5d806b45e84f98b691c45b6b55670ff51f58ee5;hp=071f231f7c5d01e62db5a650b8383c062f9a479d;hpb=8dbdca20076b8b21e23c3235ee1655d047065e6e;p=gitmo%2FMooseX-Types-Structured.git diff --git a/t/01-basic.t b/t/01-basic.t index 071f231..58b24cb 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -15,7 +15,7 @@ my $list_tc = MooseX::Meta::TypeConstraint::Structured->new( parent => $arrayref, type_constraints => [$int, $str], constraint_generator=> sub { - my @type_constraints = @{shift @_}; + my @type_constraints = @{shift @_}; my @values = @{shift @_}; while(my $type_constraint = shift @type_constraints) {