t/zzzzzzz_authors.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More 'no_plan';
   5
   6 my $authorcount = scalar do {
   7   open (my $fh, '<', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
   8   map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
   9 } or die "Known AUTHORS file seems empty... can't happen...";
  10
  11 # do not announce anything under travis - we are watching for STDERR silence
  12 diag "\n\n$authorcount contributors made this library what it is today\n\n"
  13   unless ($ENV{TRAVIS}||'') eq 'true';
  14
  15 ok 1;