Rework &dd low-level object fixups

The original[^1] fix up is too broad a brush as with lazy objects
we can crash when calling their .perl (e.g. `dd gather die`), which
causes misinterpreteting them as low-level stuff.

Fix by using nqp::can to check methods we wanna call exist instead of `try`

[1] 99923747ee7461f4630bac971d63

src/core/Any.pm

@@ -605,9 +605,11 @@ sub dd(|) {
             my $var  := nqp::shift($args);
             my $name := try $var.VAR.?name;
             my $type := $var.WHAT.^name;
-            my $what := (try $var.?is-lazy)
+            my $what := nqp::can($var, 'is-lazy') && $var.is-lazy
               ?? $var[^10].perl.chop ~ "... lazy list)"
-              !! (try $var.perl) // "(low-level $var.^name())";
+              !! nqp::can($var, 'perl')
+                ?? $var.perl
+                !! "($var.^name() without .perl method)";
             note $name ?? "$type $name = $what" !! $what;
         }
     }