/usr/share/perl5/Module/CPANTS/Kwalitee/CpantsErrors.pm is in libmodule-cpants-analyse-perl 0.95-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | package Module::CPANTS::Kwalitee::CpantsErrors;
use warnings;
use strict;
use version;
our $VERSION = '0.95';
$VERSION = eval $VERSION; ## no critic
sub order { 1000 }
##################################################################
# Analyse
##################################################################
sub analyse {
my $class=shift;
my $me=shift;
return if $me->opts->{no_capture} or $INC{'Test/More.pm'};
my $sout=$me->capture_stdout;
my $serr=$me->capture_stderr;
$sout->stop;
$serr->stop;
my @eout=$sout->read;
my @eerr=$serr->read;
if (@eerr || @eout) {
$me->d->{error}{cpants}=join("\n",'STDERR:',@eerr,'STDOUT:',@eout);
}
}
##################################################################
# Kwalitee Indicators
##################################################################
sub kwalitee_indicators {
# NOTE: CPANTS error should be logged somewhere, but it
# should not annoy people. If anything wrong or interesting
# is found in the log, add some metrics (if it's worth),
# or just fix our problems.
# Older Test::Kwalitee (prior to 1.08) has hardcoded metrics
# names in it, and if those metrics are gone from
# Module::CPANTS::Kwalitee, it fails because the number of tests
# is not as expected. This is not beautiful, but better than
# to break others' distributions needlessly.
if ($INC{"Test/Kwalitee.pm"}) {
return [
map {+{name => $_, code => sub {1}}}
qw/extractable no_pod_errors
has_test_pod has_test_pod_coverage/
] if version->parse(Test::Kwalitee->VERSION) < version->parse(1.08);
}
return [];
}
q{Listeing to: FM4 the early years};
__END__
=encoding UTF-8
=head1 NAME
Module::CPANTS::Kwalitee::CpantsErrors - Check for CPANTS testing errors
=head1 SYNOPSIS
Checks if something strange happened during testing
=head1 DESCRIPTION
=head2 Methods
=head3 order
Defines the order in which Kwalitee tests should be run.
Returns C<1000>.
=head3 analyse
Uses C<IO::Capture::Stdout> to check for any strange things that might happen during testing
=head3 kwalitee_indicators
Returns the Kwalitee Indicators datastructure.
=head1 SEE ALSO
L<Module::CPANTS::Analyse>
=head1 AUTHOR
L<Thomas Klausner|https://metacpan.org/author/domm>
=head1 COPYRIGHT AND LICENSE
Copyright © 2003–2006, 2009 L<Thomas Klausner|https://metacpan.org/author/domm>
You may use and distribute this module according to the same terms
that Perl is distributed under.
|