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