| ... |
|
| 6: |
( |
| 7: |
'code'=>sub { |
| 8: |
my %ARGS; |
| 9: |
if (@_ % 2 == 0) { %ARGS = @_ } else { die "Odd number of parameters passed to component expecting name/value pairs" } |
| 10: |
my $textsearch = (!exists $ARGS{'textsearch'} ? die "no value sent for required parameter 'textsearch'" : $ARGS{'textsearch'}); |
| 11: |
my $ctrlfile = (!exists $ARGS{'ctrlfile'} ? die "no value sent for required parameter 'ctrlfile'" : $ARGS{'ctrlfile'}); |
| 12: |
my $bool_type = (!exists $ARGS{'bool_type'} ? 'or' : $ARGS{'bool_type'}); |
| 13: |
my $whole_words = (!exists $ARGS{'whole_words'} ? undef : $ARGS{'whole_words'}); |
| 14: |
my $match_case = (!exists $ARGS{'match_case'} ? undef : $ARGS{'match_case'}); |
| ... |
|