changeset 4 | cdf3ca65d677 |
parent 2 | 19a7554ddd6c |
3:92690b23b317 | 4:cdf3ca65d677 |
---|---|
5 use File::Find; |
5 use File::Find; |
6 use File::Temp; |
6 use File::Temp; |
7 |
7 |
8 my @files; |
8 my @files; |
9 find(sub { |
9 find(sub { |
10 -f -x and ~/^\./ or return; |
10 -f -x and !/^\./ or return; |
11 push @files, $File::Find::name; |
11 push @files, $File::Find::name; |
12 }, "blib"); |
12 }, "blib"); |
13 |
13 |
14 plan tests => scalar @files; |
14 plan tests => scalar @files; |
15 |
15 |