Help for this page

Select Code to Download


  1. or download this
    for (@tabs) {
        if (
    ...
            $_->{Suppress} = 1;
        }
    }
    
  2. or download this
    for my $hash (@tabs) {
        if (grep {$hash->{Action} eq $_} qw/
    ...
            $hash->{Suppress} = 1;
        }
    }
    
  3. or download this
    for (@tabs) {
        if ($_->{Action} =~ /(^GetAll$)|(^Make$)|(MakeOnly$)/) {
            $_->{Suppress} = 1;
        }
    }
    
  4. or download this
    for (@tabs) {
        if ($_->{Action} eq 'GetAll' || 'Make' || 'MakeOnly') {
            $_->{Suppress} = 1;
        }
    }