Help for this page

Select Code to Download


  1. or download this
    my $op = $query->param('option') || 'Login';
    
    ...
    eval "require $op";
    die "Couldn't find Class $op : ".$@."\n" if $@;
    $op->perform(...);
    
  2. or download this
    my $mods = {showOverview=>"showOverview", Login => "Login"}
    my $op = $mods->{$query->param('option')};
    
    eval "require $op";
    ...