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
|
package Module::CPANTS::Kwalitee::CpantsErrors;
use warnings;
use strict;
use version;
our $VERSION = '1.02';
$VERSION =~ s/_//; ## no critic
sub order { 1000 }
##################################################################
# Analyse
##################################################################
sub analyse {
# 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.
# Note also that this stub should not be removed so that
# this can replace the old ::CpantsErrors module, and the old
# metrics will not be loaded while loading plugins.
}
##################################################################
# Kwalitee Indicators
##################################################################
sub kwalitee_indicators {
# 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 data structure.
=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.
|
