+sub show_files {
+ my ($self, $log) = @_;
+ my @files = $self->git->diff_tree({r => 1, abbrev => 1}, $log->id);
+ shift @files; # throw away commit line
+ return unless @files;
+ say "\nChanged:";
+ say join("\n", map { " * $_" } sort map { /.*\s+(\S+)/; $1 } @files);
+ return;
+}
+