Permalink
Browse files

Added class and dump methods.

  • Loading branch information...
Gisle Aas
Gisle Aas committed Sep 14, 1998
1 parent df66325 commit bd74c10a7a9ae35e0948be104ec4928781a5f489
Showing with 12 additions and 0 deletions.
  1. +12 −0 uri-test
View
@@ -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.