From dcc2f7192cc2ac3ff947caf7a3e19cbb5a2582b6 Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@cpan.org>
Date: Mon, 25 Jul 2022 11:27:16 -0400
Subject: [PATCH] make main changelord an alias for 'print'

---
 CHANGELOG.yml         | 14 ++++++--------
 lib/App/Changelord.pm |  6 ++++++
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.yml b/CHANGELOG.yml
index a42d24e..5b5c11b 100644
--- a/CHANGELOG.yml
+++ b/CHANGELOG.yml
@@ -7,11 +7,9 @@ releases:
     changes:
       - Initial release
 change_types:
-  - feat:
-      level: minor
-      title: Features
-    keywords: []
-  - fix:
-      level: patch
-      title: Bug fixes
-    keywords: []
+  - level: minor
+    title: Features
+    keywords: [ feat ]
+  - level: patch
+    title: Bug fixes
+    keywords: [ fix ]
diff --git a/lib/App/Changelord.pm b/lib/App/Changelord.pm
index e97fde0..2a91a2e 100644
--- a/lib/App/Changelord.pm
+++ b/lib/App/Changelord.pm
@@ -15,6 +15,12 @@ use List::AllUtils qw/ pairmap partition_by /;
 
 use App::Changelord::Role::ChangeTypes;
 
+sub run($self) {
+    App::Changelord::Command::Print->new(
+        parent_command => $self,
+    )->run;
+}
+
 subcommand $_ => 'App::Changelord::Command::' . ucfirst $_ =~ s/-(.)/uc $1/er
     for qw/ schema validate version bump init add git-gather print /;