File Coverage

blib/lib/CPAN/Changes/Utils.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	39	39	100.0

package CPAN::Changes::Utils;

use base qw(Exporter);
use strict;
use warnings;

use List::Util qw(max min);
use Readonly;

# Constants.
Readonly::Array our @EXPORT => qw(construct_copyright_years);

our $VERSION = 0.02;

sub construct_copyright_years {
	my $changes = shift;

	my $copyright_years;
	my @years = map { $_->date =~ m/^(\d{4})/ms; $1 }
		grep { defined $_->date }
		$changes->releases;
	my $year_from = min(@years);
	my $year_to = max(@years);
	if (defined $year_from) {
		$copyright_years = $year_from;
		if ($year_from != $year_to) {
			$copyright_years .= '-'.$year_to;
		}
	}

	return $copyright_years;
}

1;

__END__