App-Perl-Module-CopyrightYears

 view release on metacpan or  search on metacpan

CopyrightYears.pm  view on Meta::CPAN

	# Change copyright years in LICENSE file.
	my @licenses = $self->_files('.', 'LICENSE*');
	foreach my $license (@licenses) {
		if (defined $license && -r $license) {
			my @license = slurp($license);
			my $opts_hr = {
				'prefix_glob' => '.*\(c\)\s+',
			};
			my $update_file = 0;
			foreach (my $i = 0; $i < @license; $i++) {
				my $updated = update_years($license[$i], $opts_hr,
					$self->{'_opts'}->{'y'});
				if ($updated) {
					$license[$i] = $updated;
					$update_file = 1;
				}
			}
			if ($update_file) {
				barf($license, (join '', @license));
			}
		}
	}

	# Look for scripts with copyright years.



( run in 0.276 second using v1.01-cache-2.11-cpan-05444aca049 )