diff options
author | Karel Miko <miko@dcit.cz> | 2013-04-16 09:30:40 +0200 |
---|---|---|
committer | Karel Miko <miko@dcit.cz> | 2013-04-16 09:30:40 +0200 |
commit | 0debb3d69ecf9b28e3f9413afa9ebd7d849eee45 (patch) | |
tree | 139d4b67cc568c88153b9a5e0eeb7bb0285c621c /t/002_all_pm.t | |
parent | dd9a707d5f8fbebd585d2bbaa2fc93e703790df0 (diff) |
v0.003
Diffstat (limited to 't/002_all_pm.t')
-rw-r--r-- | t/002_all_pm.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/002_all_pm.t b/t/002_all_pm.t index 03a4688b..60900a3b 100644 --- a/t/002_all_pm.t +++ b/t/002_all_pm.t @@ -1,11 +1,13 @@ use strict; use warnings; -use Test::More tests => 1; -use File::Find qw(find); +use Test::More; + +plan skip_all => "File::Find not installed" unless eval { require File::Find }; +plan tests => 1; my @files; -find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib'); +File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib'); for my $m (sort @files) { $m =~ s|[\\/]|::|g; |