[dbsrgits/DBIx-Class-Historic.git] / maint / gen_pod_authors

#!/usr/bin/env perl

use warnings;
use strict;

# we will be outputting *ENCODED* utf8, hence the raw open below
# the file is already sanity-checked by xt/authors.t
my @known_authors = do {
  open (my $fh, '<:raw', '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...";

$_ =~ s!^ ( [^\:]+ ) : \s !B<$1>:!x
  for @known_authors;

$_ =~ s!( \b https? :// [^\s\>]+ )!L<$1|$1>!x
  for @known_authors;

print join "\n\n",
  '=encoding utf8',
  '=over',
  @known_authors,
  '=back',
  '',
;

1;
Commit	Line	Data
3440100b	1	#!/usr/bin/env perl
	2
	3	use warnings;
	4	use 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
	8	my @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
	19	print join "\n\n",
	20	'=encoding utf8',
	21	'=over',
	22	@known_authors,
	23	'=back',
	24	'',
	25	;
	26
	27	1;