Perl Style: Functions as Data

Jan 1, 1998 by Tom Christiansen

• Use function pointers as function arguments or in data structures:

      # from MxScreen in TSA (see also PCB 19.12)
      %State_Table = (
          Initial  => \&show_top,
          Execute  => \&run_query,
          Format   => \&get_format,
          Login    => \&resister_login,
          Review   => \&review_selections,
          Sorting  => \&get_sorting,
          Wizard   => \&wizards_only,
      );
  
      foreach my $state (sort keys %State_Table) {
          my $function = $State_Table{$state};
          my $how      = ($action == $function)
                          ? SCREEN_DISPLAY
                          : SCREEN_HIDDEN;
          $function->($how);
      }
  

Forward to Closures
Back to Configuration Files
Up to index

Copyright © 1998, Tom Christiansen All rights reserved.