Implement .^shortname in NQP MOP.

Author: jnthn

src/how/NQPClassHOW.nqp

@@ -636,6 +636,11 @@ knowhow NQPClassHOW {
         $!name
     }
 
+    method shortname($obj) {
+        my @parts := nqp::split('::', self.name($obj) // '');
+        @parts ?? @parts[nqp::elems(@parts) - 1] !! '<anon>'
+    }
+
     method traced($obj) {
         $!trace
     }

src/how/NQPConcreteRoleHOW.nqp

@@ -143,6 +143,11 @@ knowhow NQPConcreteRoleHOW {
         $!name
     }
 
+    method shortname($obj) {
+        my @parts := nqp::split('::', self.name($obj) // '');
+        @parts ?? @parts[nqp::elems(@parts) - 1] !! '<anon>'
+    }
+
     method attributes($obj, :$local) {
         my @attrs;
         for @!attributes {

src/how/NQPCurriedRoleHOW.nqp

@@ -30,6 +30,11 @@ knowhow NQPCurriedRoleHOW {
     method name($obj) {
         $!curried_role.HOW.name($!curried_role)
     }
+
+    method shortname($obj) {
+        my @parts := nqp::split('::', self.name($obj) // '');
+        @parts ?? @parts[nqp::elems(@parts) - 1] !! '<anon>'
+    }
 
     method curried_role($obj) {
         $!curried_role

src/how/NQPModuleHOW.nqp

@@ -50,4 +50,9 @@ knowhow NQPModuleHOW {
     method name($obj) {
         $!name
     }
+
+    method shortname($obj) {
+        my @parts := nqp::split('::', self.name($obj) // '');
+        @parts ?? @parts[nqp::elems(@parts) - 1] !! '<anon>'
+    }
 }

src/how/NQPNativeHOW.nqp

@@ -45,4 +45,9 @@ knowhow NQPNativeHOW {
     method name($obj) {
         $!name
     }
+
+    method shortname($obj) {
+        my @parts := nqp::split('::', self.name($obj) // '');
+        @parts ?? @parts[nqp::elems(@parts) - 1] !! '<anon>'
+    }
 }

src/how/NQPParametricRoleHOW.nqp

@@ -182,6 +182,11 @@ knowhow NQPParametricRoleHOW {
         $!name
     }
 
+    method shortname($obj) {
+        my @parts := nqp::split('::', self.name($obj) // '');
+        @parts ?? @parts[nqp::elems(@parts) - 1] !! '<anon>'
+    }
+
     method attributes($obj, :$local) {
         my @attrs;
         for @!attributes {