/usr/share/perl5/Module/CPANTS/Kwalitee/Repackageable.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 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 | package Module::CPANTS::Kwalitee::Repackageable;
use warnings;
use strict;
use File::Spec::Functions qw(catfile);
use List::MoreUtils qw(all any);
#use Pod::Simple::TextContent;
sub order { 900 }
##################################################################
# Analyse
##################################################################
sub analyse {
my $class=shift;
my $me=shift;
return;
}
##################################################################
# Kwalitee Indicators
##################################################################
sub kwalitee_indicators{
return [
{
name=>'easily_repackageable_by_debian',
error=>qq{It is easy to repackage this module by Debian.},
remedy=>q{Fix each one of the metrics this depends on},
aggregating => [qw(no_generated_files has_tests_in_t_dir no_stdin_for_prompting)],
is_experimental=>1,
code=>\&_aggregator,
},
{
name=>'easily_repackageable_by_fedora',
error=>qq{It is easy to repackage this module by Fedora.},
remedy=>q{Fix each one of the metrics this depends on},
aggregating=> [qw(no_generated_files fits_fedora_license)],
is_experimental=>1,
code=>\&_aggregator,
},
{
name=>'easily_repackageable',
error=>qq{It is easy to repackage this module. See <a href="http://www.perlfoundation.org/perl5/index.cgi?cpan_packaging">cpan_packaging</a> },
remedy=>q{Fix each one of the metrics this depends on},
aggregating=>[qw(easily_repackageable_by_debian easily_repackageable_by_fedora)],
is_experimental=>1,
code=>\&_aggregator,
},
];
}
sub _aggregator {
my $d=shift;
my $metric=shift;
my @errors = grep { !$d->{kwalitee}{$_} } @{ $metric->{aggregating} };
if (@errors) {
$d->{error}{ $metric->{name} } = join ", ", @errors;
return 0;
}
return 1;
}
q{Favourite record of the moment:
Lili Allen - Allright, still};
__END__
=pod
=head1 NAME
Module::CPANTS::Kwalitee::Repackageable - Checks for various signs that make a module packageable
=head1 SYNOPSIS
There are several agregate metrics in here.
=head1 DESCRIPTION
=head2 Methods
=head3 order
Defines the order in which Kwalitee tests should be run.
=head3 analyse
=head3 kwalitee_indicators
Returns the Kwalitee Indicators datastructure.
=over
=item * easily_repackageable
=item * easily_repackageable_by_fedora
=back
=head1 SEE ALSO
L<Module::CPANTS::Analyse>
=head1 AUTHOR
Thomas Klausner, <domm@cpan.org>, http://domm.zsi.at
and Gabor Szabo, <gabor@pti.co.il>, http://www.szabgab.com
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2003-2009 Thomas Klausner
Copyright (C) 2006-2008 Gabor Szabo
You may use and distribute this module according to the same terms
that Perl is distributed under.
=cut
|