X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=blobdiff_plain;f=t%2F12_wrapper-definition.t;fp=t%2F12_wrapper-definition.t;h=1b7c189a63bb00d78da923005e241a881bf55562;hp=9284eec1eea7d222cbc02ee6879d42d2c0d82914;hb=e9dc30af81ed775a6ac0a0f0c1daad021e5569f6;hpb=a2487cfb17f24711667462ae01dc8cf8a47ac87e diff --git a/t/12_wrapper-definition.t b/t/12_wrapper-definition.t index 9284eec..1b7c189 100644 --- a/t/12_wrapper-definition.t +++ b/t/12_wrapper-definition.t @@ -29,7 +29,7 @@ for my $data (map { [@$_] } @tests) { } # coercion handler export - { + { my ($coerce, $coercion_result, $cannot_coerce) = map { shift @$data } 1 .. 3; ok my $code = __PACKAGE__->can("to_$type"), "to_$type() coercion was exported"; is_deeply scalar $code->($coerce), $coercion_result, "to_$type() coercion works";