[dbsrgits/DBIx-Class.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!( \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
	13	$_ =~ s!( \b https? :// [^\s\>]+ )!L<$1\|$1>!x
	14	for @known_authors;
	15
	16	print join "\n\n",
	17	'=encoding utf8',
	18	'=over',
	19	@known_authors,
	20	'=back',
	21	'',
	22	;
	23
	24	1;