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