--- lib/PXElator/CouchDB.pm	2009/08/12 22:56:45	207
+++ lib/PXElator/CouchDB.pm	2009/08/12 23:59:01	208
@@ -105,19 +105,14 @@
 	my ( $package, $file, $line, $sub ) = caller(1);
 	( $package, undef, $line ) = caller(0) if $package eq 'main';
 
-	my $t = time();
+	my $time = time();
 
-	$data->{x_meta} = {
-		'time' => $t,
-		'package' => $package,
-		'line' => $line,
-		'sub' => $sub,
-	};
-	$data->{'ident'} = [ @_ ] if @_;
+	$data->{$_} = eval '$' . $_ foreach ( qw/time package line sub/ );
 
 	warn 'audit ', dump($data), "at $file +$line\n";
 
-	$audit->put( "pxelator/$t.$package.$url", $data );
+	$time = int($time); # reduce granularity
+	$audit->put( "pxelator/$time.$package.$url", $data );
 }
 
 1;