Parent Directory | Revision Log | Patch
revision 487 by dpavlin, Sat Jan 23 20:47:17 2010 UTC | revision 492 by dpavlin, Mon Jan 25 17:55:55 2010 UTC | |
---|---|---|
# | Line 59 sub audit { | Line 59 sub audit { |
59 | $audit->insert( $data ); | $audit->insert( $data ); |
60 | } | } |
61 | ||
use Data::Dumper; | ||
62 | ||
63 | sub query { | sub query { |
64 | my $callback = shift; | my $callback = shift; |
65 | my $cursor = $audit->query->sort({ '$natural' => -1 })->limit( 25 ); | my $cursor = $audit->query->sort({ '$natural' => -1 })->limit( 100 ); |
66 | while( my $o = $cursor->next ) { | while( my $o = $cursor->next ) { |
# $callback->( $o ); | ||
warn Dumper( $o ); | ||
67 | $callback->( $o ); | $callback->( $o ); |
68 | } | } |
69 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |