package Minilla::Release::RewriteChanges;
use strict;
use warnings;
use utf8;
use Minilla::Util qw(slurp_raw spew_raw);
sub run {
my ($self, $project, $opts) = @_;
return if $opts->{dry_run};
my $content = slurp_raw('Changes');
$content =~ s!\{\{\$NEXT\}\}!
"{{\$NEXT}}\n\n" . $project->version . " " . $project->work_dir->changes_time->strftime('%Y-%m-%dT%H:%M:%SZ')
!e;
spew_raw('Changes' => $content);
}
1;