8 use File
::Slurp qw
< slurp
>;
10 my $ext = qr/(?: php | inc )/x;
13 find
( sub { push @files, $File::Find
::name
if -f
&& /\. $ext $/x }, '.' );
15 plan tests
=> scalar @files;
17 for my $file (@files) {
18 my $cont = slurp
$file;
19 if ( $cont =~ m
<<\?php
.* \?>>xs
) {
20 pass
"$file has <?php ?>";
21 } elsif ( $cont =~ m
<<\? .* \?>>xs
) {
22 fail
"$file does not use <? ?>";
24 pass
"$file has neither <?php ?> nor <? ?>, check it";