--- lib/PXElator/CouchDB.pm	2009/08/15 14:21:55	221
+++ lib/PXElator/CouchDB.pm	2009/08/17 00:52:51	240
@@ -125,6 +125,7 @@
 	( $package, undef, $line ) = caller(0) if ! $package || $package eq 'main';
 
 	my $time = time();
+	$sub =~ s{^.+::}{}; # stip package name
 
 	$data->{$_} = eval '$' . $_ foreach ( qw/time package line sub/ );