Skip to content
Browse files

Added class and dump methods.

  • Loading branch information...
1 parent df66325 commit bd74c10a7a9ae35e0948be104ec4928781a5f489 Gisle Aas committed
Showing with 12 additions and 0 deletions.
  1. +12 −0 uri-test
View
12 uri-test
@@ -41,3 +41,15 @@ if (@ARGV) {
print join(" ", @result), "\n";
}
print "$uri\n" unless $orig eq $uri;
+exit;
+
+# Some extra methods that might be nice
+
+sub UNIVERSAL::class { ref($_[0]) }
+
+sub UNIVERSAL::dump {
+ require Data::Dumper;
+ my $d = Data::Dumper->Dump(\@_, ["self", "arg1", "arg2", "arg3", "arg4"]);
+ chomp($d);
+ $d;
+}

0 comments on commit bd74c10

Please sign in to comment.
Something went wrong with that request. Please try again.