4 use Test::More 'no_plan';
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...";
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';