Commit | Line | Data |
2bc8e981 |
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; |