From 3b4c019dcc69667b81cf2553e8837e764cb8d9ab Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@cpan.org>
Date: Mon, 25 Jul 2022 11:55:42 -0400
Subject: [PATCH] docs for ::Init

---
 lib/App/Changelord/Command/Init.pm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/lib/App/Changelord/Command/Init.pm b/lib/App/Changelord/Command/Init.pm
index b88acd2..a35b47e 100644
--- a/lib/App/Changelord/Command/Init.pm
+++ b/lib/App/Changelord/Command/Init.pm
@@ -12,13 +12,9 @@ use List::AllUtils qw/ first min uniq /;
 use Version::Dotted::Semantic;
 
 with 'App::Changelord::Role::ChangeTypes';
-
-has changelog => ( is => 'lazy' );
-
+with 'App::Changelord::Role::Changelog';
 with 'App::Changelord::Role::Versions';
 
-sub _build_changelog ($self) { $self->parent_command->changelog }
-
 sub serialize_changelog($self, $changelog = undef) {
 
     $changelog //= $self->changelog;
@@ -42,7 +38,7 @@ sub serialize_changelog($self, $changelog = undef) {
 }
 
 sub run ($self) {
-    my $src = $self->parent_command->source;
+    my $src = $self->source;
     die "file '$src' already exists, aborting\n" if -f $src;
 
     my $change = {
@@ -51,7 +47,7 @@ sub run ($self) {
             homepage => undef,
             with_stats => 'true',
             ticket_url => undef,
-            commit_regex => /^(?<type>[^: ]+):(?<desc>.*?)(\[(?<ticket>[^\]]+)\])?$/,
+            commit_regex => q/^(?<type>[^: ]+):(?<desc>.*?)(\[(?<ticket>[^\]]+)\])?$/,
         },
         change_types => $self->change_types,
         releases => [