stip package name from sub

[pxelator] / lib / PXElator / CouchDB.pm

diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm
index 2453eba..53a12de 100644 (file)
--- a/lib/PXElator/CouchDB.pm
+++ b/lib/PXElator/CouchDB.pm
@@ -125,6 +125,7 @@ sub audit {
        ( $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/ );