Perhaps a quantum solution is needed ...

use Quantum::Superpositions; 
...
if($_->{Action} eq any( qw(GetAll Make MakeOnly) )) {
    $_->{Suppress} = 1;
}
[download]

See the Quantum::Superpositions docs for more info on this very deep magic.
HTH

_________
broquaint