unless
( DBIx::Class::Optional::Dependencies->req_ok_for (
'test_whitespace'
) ) {
my
$missing
= DBIx::Class::Optional::Dependencies->req_missing_for (
'test_whitespace'
);
$ENV
{RELEASE_TESTING}
?
die
(
"Failed to load release-testing module requirements: $missing"
)
: plan
skip_all
=>
"Test needs: $missing"
}
{
no
warnings
'redefine'
;
my
$is_pm
=
sub
{
$_
[0] !~ /\./ ||
$_
[0] =~ /\.(?:pm|pod|skip|bash|sql|json|proto)$/i ||
$_
[0] =~ /::/;
};
*Test::EOL::_is_perl_module
=
$is_pm
;
*Test::NoTabs::_is_perl_module
=
$is_pm
;
}
my
@pl_targets
=
qw/t xt lib script examples maint/
;
Test::EOL::all_perl_files_ok({
trailing_whitespace
=> 1 },
@pl_targets
);
Test::NoTabs::all_perl_files_ok(
@pl_targets
);
if
(
open
(
my
$gi
,
'<'
,
'.gitignore'
)) {
my
$skipnames
;
while
(
my
$ln
= <
$gi
>) {
next
if
$ln
=~ /^\s*$/;
chomp
$ln
;
$skipnames
->{
$_
}++
for
bsd_glob(
$ln
);
}
delete
$skipnames
->{
'META.yml'
};
for
my
$fn
(bsd_glob(
'*'
)) {
next
if
$skipnames
->{
$fn
};
next
unless
-f
$fn
;
Test::EOL::eol_unix_ok(
$fn
, {
trailing_whitespace
=> 1 });
Test::NoTabs::notabs_ok(
$fn
);
}
}