--- lib/PXElator/store.pm 2010/01/23 19:47:46 486 +++ lib/PXElator/store.pm 2010/01/23 20:47:17 487 @@ -59,5 +59,16 @@ $audit->insert( $data ); } +use Data::Dumper; + +sub query { + my $callback = shift; + my $cursor = $audit->query->sort({ '$natural' => -1 })->limit( 25 ); + while( my $o = $cursor->next ) { +# $callback->( $o ); +warn Dumper( $o ); + $callback->( $o ); + } +} 1;