/usr/share/perl5/Module/CPANTS/Kwalitee/CpantsErrors.pm is in libmodule-cpants-analyse-perl 0.85+dfsg-2.
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 | package Module::CPANTS::Kwalitee::CpantsErrors;
use warnings;
use strict;
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;
$me->d->{error}{cpants}= (@eerr || @eout) ? join("\n",'STDERR:',@eerr,'STDOUT:',@eout) : '';
}
##################################################################
# Kwalitee Indicators
##################################################################
sub kwalitee_indicators {
return [
{
name=>'no_cpants_errors',
error=>q{Some errors occured during CPANTS testing. They might be caused by bugs in CPANTS or some strange features of this distribution. See 'cpants' in the dist error view for more info.},
remedy=>q{Please report the error(s) to bug-module-cpants-analyse@rt.cpan.org},
code=>sub { shift->{error}{cpants} ? 0 : 1 },
},
];
}
q{Listeing to: FM4 the early years};
__END__
=pod
=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.
=over
=item * no_cpants_errors
=back
=head1 SEE ALSO
L<Module::CPANTS::Analyse>
=head1 AUTHOR
Thomas Klausner, <domm@cpan.org>, http://domm.zsi.at
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2003-2006, 2009 Thomas Klausner
You may use and distribute this module according to the same terms
that Perl is distributed under.
=cut
|