Use of qw(...) as parentheses is deprecated
sub _diff {
my ($self, $c) = @_;
my %diff_args = ( patch => 1 );
- foreach my $arg qw/filename parent/ {
+ foreach my $arg (qw/filename parent/) {
if (defined $c->stash->{$arg}) {
$diff_args{$arg} = $c->stash->{$arg};
};