Emit Optional::Dependencies error messages in a way simplifying c/p for cpanm
[dbsrgits/DBIx-Class-Historic.git] / maint / gen_pod_authors
CommitLineData
3440100b 1#!/usr/bin/env perl
2
3use warnings;
4use strict;
5
6# we will be outputting *ENCODED* utf8, hence the raw open below
7# the file is already sanity-checked by xt/authors.t
8my @known_authors = do {
9 open (my $fh, '<:raw', '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...";
12
f06eb015 13$_ =~ s!^ ( [^\:]+ ) : \s !B<$1>:!x
14 for @known_authors;
15
3440100b 16$_ =~ s!( \b https? :// [^\s\>]+ )!L<$1|$1>!x
17 for @known_authors;
18
19print join "\n\n",
20 '=encoding utf8',
21 '=over',
22 @known_authors,
23 '=back',
24 '',
25;
26
271;