RosettaCodeData/Task/Empty-directory/Perl-6/empty-directory.pl6

sub dir-is-empty ($d) { not dir $d }