in reply to Package-Level Variables
The definition of the search routine then could look like this:search(simple => $stuff); search(normal => $stuff); search(extended => $stuff);
And your problem simply evaporates.use Carp; sub search($$) { my(%parameter); # Those parameters that you set my $mode = shift; if($mode eq 'simple') { # set parameters to simple ... } elsif($mode eq 'normal') { # set parameters to normal ... } elsif($mode eq 'extended') { # set parameters to extended ... } else { croak("mode '$mode' not supported"); } # Now just do your process_search ... }
Any former syntax related problems, i.e. use of an invalid mode, would now only be detected at runtime, thus when the call is made. But actually that's not different from the original code, where a call to an undefined sub would only be detected when an attempt to call it, is made.
|
|---|