4 use Test::More 'no_plan';
8 my $authorcount = scalar do {
9 open (my $fh, '<', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
10 map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
11 } or die "Known AUTHORS file seems empty... can't happen...";
13 # do not announce anything under ci - we are watching for STDERR silence
14 diag <<EOD unless DBICTest::RunMode->is_ci;
18 $authorcount contributors made this library what it is today
21 Distinguished patrons:
22 * ( 2014 ~ 2015 ) Henry Van Styn, creator of http://p3rl.org/RapidApp
27 # looks funny if we do it before stuff