Add Common role, including debug and gist-name

Author: japhb

META6.json

@@ -23,6 +23,7 @@
     "Terminal::Widgets::App": "lib/Terminal/Widgets/App.rakumod",
     "Terminal::Widgets::ColorTheme": "lib/Terminal/Widgets/ColorTheme.rakumod",
     "Terminal::Widgets::ColorThemes": "lib/Terminal/Widgets/ColorThemes.rakumod",
+    "Terminal::Widgets::Common": "lib/Terminal/Widgets/Common.rakumod",
     "Terminal::Widgets::Events": "lib/Terminal/Widgets/Events.rakumod",
     "Terminal::Widgets::Focusable": "lib/Terminal/Widgets/Focusable.rakumod",
     "Terminal::Widgets::Form": "lib/Terminal/Widgets/Form.rakumod",

lib/Terminal/Widgets/Common.rakumod

@@ -0,0 +1,11 @@
+# ABSTRACT: Role with common methods for all major T-W class hierarchies
+
+
+#| Role with common methods for all major T-W class hierarchies
+role Terminal::Widgets::Common {
+    #| Cache of DEBUG level at time of object creation
+    has UInt:D $.debug = +($*DEBUG // 0);
+
+    #| Shortened name for gists and monikers
+    method gist-name() { self.^name.subst('Terminal::Widgets::', '') }
+}

t/00-use.rakutest

@@ -2,6 +2,7 @@ use v6.d;
 use Test;
 
 use Terminal::Widgets;
+use Terminal::Widgets::Common;
 use Terminal::Widgets::WidgetRegistry;
 
 use Terminal::Widgets::Utils;