3 use strict; use warnings FATAL => 'all';
6 use List::Util qw(first min max);
8 sub vwarn { warn $_[0] if $ENV{COPYRITE_VERBOSE} }
10 my $fname = shift @ARGV;
12 unless ($fname and $fname =~ /\.pm$/) {
13 die "You didn't supply me a filename or it didn't end in .pm - please
14 invoke me as $0 lib/Foo/Bar.pm or similar";
17 my %head_section; @head_section{qw(AUTHOR AUTHORS CONTRIBUTORS)} = (1,1,1);
19 my @lines = io($fname)->getlines;
21 my @use = grep $head_section{$_}, map { /^=head1 (\w+)/ ? ($1) : () } @lines;
23 die "Couldn't find =head1 sections for any of ".join(' ', keys %head_section)
26 vwarn "Found =head1 sections for: ".join(' ', @use)." in ${fname}\n";
28 my $changes = first { -e $_ } qw(Changes ChangeLog);
30 die "Couldn't find Changes or ChangeLog file :(" unless $changes;
32 my @changes = io($changes)->getlines;
34 my @years = map /(200\d|199\d)/g, grep /^\S/, @changes;
36 vwarn "Found years: ".join(' ', @years)." in ${changes}\n";
38 vwarn "Patch follows:\n\n\n";
40 my ($min_year, $max_year) = (min(@years), max(@years));
43 if ($max_year > $min_year) {
44 "${min_year} - ${max_year}"
50 my $section_links = join ' and ', map "L</${_}>", @use;
52 my $pname = join '::', map { s/\.pm//; $_ } grep /^[A-Z]/, split /\//, $fname;
57 Copyright (c) ${min_year} - ${max_year}
58 the ${pname} ${section_links}