# set up for caching my @unsafe_cache_params = qw(file extensions include exclude search); my $current = $self->{params}; my $previous = $self->{previous_run_config}; $self->{cache_safe} = 0; for (@unsafe_cache_params){ $self->{cache_safe} = Compare($current->{$_}, $previous->{$_}); last if ! $self->{cache_safe}; }