Help for this page

Select Code to Download


  1. or download this
    my $profile = {
  required => qw[my_name],
...
    }
  }
}
  2. or download this
    $code =<<'END'
    my $dfv = shift;
...
;
my $profile->{constraint_methods}{my_name} = sub { eval $code }; # Doe
+s not work
  3. or download this
    my $profile->{constraint_methods}{my_name} = sub { use Data::Dump qw(d
+ump); warn "PARAMS " . dump(@_) . "\n"; eval $code }; # Does not work