Yeah... and the following code looks a hell of a lot better than before...

    # 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};
    }
[download]