+for (@args) {
+ say "arg: $_";
+ $n = 0+$_ if /^\d+$/;
+ $doclear++ if /^clear$/;
+}
+my $lines = DXDebug::dbgprintring($n);
+DXDebug::dbgclearring() if $doclear;
+
+return (1, qq{Contents of $lines lines of debug ring buffer logged. View with watchdbg.});