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