use strict;

$::info{'no_dir'} = [ q[test], q[test2] ];
BEGIN {
  #▼なんかディレクトリからファイルを返す関数
sub file_list (&$;$) {

  my ($code, $dir_name, $mode) = ($_[0], $_[1], $_[2]);

  my $pass;
    {
      $pass = $dir_name . q[./], last if(qq[\l$mode] eq q[p] or !$mode);
      $pass = "", last if(qq[\l$mode] eq q[f]);
    return();  #モードが変なのは処理しない。
    }
  opendir DIR, $dir_name or return ();
     my @file_list = grep{ $_ = $pass . $_; &$code; } (readdir DIR);
  closedir DIR;
  foreach my $file (@file_list){$file =~ s[/\./][/]g;}

  return(@file_list);

  }