Debian_CPANTS.txtって何だ〜解決篇〜

Perl

http://wassr.jp/user/holidaysl/statuses/A1naJAQqnO
ってつぶやいた事があるんだけど、犯人はModule/CPANTS/Kwalitee/Distros.pmでした。



こんな感じの t/04kwalitee.t を使ってます。

#! /usr/bin/env perl
#
# $Id$
#
use strict;
use warnings;
use utf8;
use version; our $VERSION = qv('0.0.0');

BEGIN {
    use File::Spec;
    use FindBin qw($Bin);
    chdir File::Spec->catdir( $Bin, q{..} );
}
use Test::Base;

if ( $ENV{TEST_KWALITEE} || $ENV{TEST_ALL} || !$ENV{HARNESS_ACTIVE} ) {
    eval {
        require Test::Kwalitee;
        Test::Kwalitee->import;
        1;
      }
      or do {
        plan skip_all => 'Test::Kwalitee required for testing Kwalitee';
      };
}
else {
    plan skip_all => 'set TEST_KWALITEE for testing Kwalitee';
}