}
else{
$self->{_compiled_type_coercion} = sub {
- my($thing) = @_;\r
- foreach my $pair (@{$coercions}) {\r
- #my ($constraint, $converter) = @$pair;\r
- if ($pair->[0]->check($thing)) {\r
+ my($thing) = @_;
+ foreach my $pair (@{$coercions}) {
+ #my ($constraint, $converter) = @$pair;
+ if ($pair->[0]->check($thing)) {
local $_ = $thing;
return $pair->[1]->($thing);
- }\r
- }\r
- return $thing;\r
+ }
+ }
+ return $thing;
};
}
return;