my $profile->{constraint_methods}{my_name} = sub { use Data::Dump qw(dump); warn "PARAMS " . dump(@_) . "\n"; eval $code }; # Does not work