store data in MongoDB

diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm
index 1d1401b..7e9e8fd 100644 (file)
--- a/lib/PXElator/CouchDB.pm
+++ b/lib/PXElator/CouchDB.pm
@@ -8,7 +8,6 @@ use warnings;
 use LWP::UserAgent;
 use JSON;
 use Data::Dump qw/dump/;
-use Time::HiRes qw/time/;
 use Data::Structure::Util qw(unbless);
 use Scalar::Util qw/blessed/;
 use Storable qw/dclone/;

diff --git a/lib/PXElator/store.pm b/lib/PXElator/store.pm
index 0da25d4..e1d4fef 100644 (file)
--- a/lib/PXElator/store.pm
+++ b/lib/PXElator/store.pm
@@ -4,17 +4,16 @@ use warnings;
 use strict;
 
 use POSIX;
+use Time::HiRes qw/time/;
 
-use CouchDB;
-
-=for MongoDB
+#use CouchDB;
 
 use MongoDB;
+
 my $conn = MongoDB::Connection->new;
 my $db = $conn->get_database( 'pxelator' );
 our $audit = $db->get_collection( 'audit' );
 
-=cut
 
 sub audit {
        my $data = pop @_;
@@ -54,9 +53,10 @@ sub audit {
        $time = strftime("%Y-%m-%d.%H:%M:%S", localtime $time);
        my $package = $caller[0];
 
-       CouchDB::_store_audit( "$time.$package.$url" => $data );
+#      CouchDB::_store_audit( "$time.$package.$url" => $data );
 
-#      $data->{_id} = "$time.$package.$url"; $audit->insert( $data );
+#      $data->{_id} = "$time.$package.$url";
+       $audit->insert( $data );
 }