Передача подпрограммы в подпрограмму Perl

Я пытаюсь сделать подпрограмму, имитирующую Perl6/Raku dir. dir может очень легко и быстро искать каталоги с файловыми тестами в каталоге.

Я пытаюсь добавить рекурсивную опцию в dir.

У меня есть скрипт, который может это сделать, но я пытаюсь добавить рекурсивную опцию, используя скрипт File::Find, который, как я уже знаю, работает:

use File::Find;
my @files;
find({ wanted => \&process_file, no_chdir => 1 }, '.');
sub process_file {
    if ((-f $_) && ($_ =~ m/\.pl$/)) {#various tests on the files
            push @files, $_;
#        print "This is a file: $_\n";
    }
}

Однако я хочу сделать все в одной подпрограмме.

Я пробовал это:

use strict;
use warnings FATAL => 'all';
use feature 'say';
use autodie ':all';
use Carp 'confess';
use File::Find 'find';

sub dir { # a Perl5 mimic of Perl6/Raku's "dir"
    my %args = ( # default arguments listed below
        tests => 'f', dir => '.', regex   => '.', recursive => 0,
    @_, # argument pair list goes here
    );
    if ($args{tests} =~ m/[^rwxoRWXOezfdlpSbctugkTB]/){# sMAC returns are non-boolean, and are excluded
        confess "There are some unrecognized characters in $args{tests}";
    }
    my @items = split '', $args{tests};
    my $tests = '-' . join (' -', @items);
    undef @items;
    $args{regex} = qr/$args{regex}/;
    opendir my $dh, $args{dir} or die "Can't opendir on $args{dir}: $!";
    while (my $item = readdir $dh) {
        if (($item !~ $args{regex}) or ($item =~ m/^\.{1,2}$/)) { next  }
        my $i = "$args{dir}/$item";
        if (not defined $i) {
            confess "\$i isn't defined.";
        }
        my $rv = eval "${tests} \$i" || 0;
        if ($rv == 0) { next }
        if ($args{dir} eq '.') {
            push @items, $item
        } else {
            push @items, $i
        }
    }
# this is the new part, and what doesn't work
    if ($args{recursive} == 1) {
        find({
            wanted => \sub {
                if ((eval "${tests} $_") && ($_ =~ /$args{regex}/)) {
                    push @items, $_;
                }
            },
            chdir => 1,
            '.'
        });
    }
    @items
}
foreach my $pl (dir(recursive => 1, regex => '\.pl$')) {
    say $pl
}

это дает ошибку:

Odd number of elements in anonymous hash at clean.pl line 44

Я думаю, что это из-за функции find внизу, как указывает ошибка.

Передача одной подпрограммы в другую подпрограмму чем-то похожа на мой вопрос, но я не вижу, как там применить к моему случаю.

Прохождение wanted => sub и wanted => \sub дает ту же ошибку.

Как я могу заставить эту wanted подпрограмму перейти к find без ошибок?