|
Lines 1-31
Link Here
|
| 1 |
#!/usr/bin/perl |
|
|
| 2 |
# |
| 3 |
# Tests usage of deprecated Perl syntax. Deprecated could be extended to the |
| 4 |
# sense of 'not allowed'. |
| 5 |
# |
| 6 |
use warnings; |
| 7 |
use strict; |
| 8 |
use Test::NoWarnings; |
| 9 |
use Test::More tests => 2; |
| 10 |
use File::Find; |
| 11 |
use Cwd; |
| 12 |
|
| 13 |
my @files_with_switch = do { |
| 14 |
my @files; |
| 15 |
local $/ = undef; |
| 16 |
find( |
| 17 |
sub { |
| 18 |
my $dir = getcwd(); |
| 19 |
return if $dir =~ /blib/; |
| 20 |
return unless /\.(pl|pm)$/; # Don't inspect non-Perl files |
| 21 |
open my $fh, "<", $_; |
| 22 |
my $content = <$fh>; |
| 23 |
push @files, "$dir/$_" if $content =~ /switch\s*\(.*{/; |
| 24 |
}, |
| 25 |
('.') |
| 26 |
); |
| 27 |
@files; |
| 28 |
}; |
| 29 |
ok( !@files_with_switch, "Perl syntax: no use of switch statement" ) |
| 30 |
or diag( "Files list: " . join( ', ', @files_with_switch ) ); |
| 31 |
|
| 32 |
- |