Skip to content

Latest commit

 

History

History
47 lines (32 loc) · 1.19 KB

README.md

File metadata and controls

47 lines (32 loc) · 1.19 KB

Pure-Perl non-blocking I/O MongoDB driver, optimized for use with the Mojolicious real-time web framework.

use Mojolicious::Lite;
use Mango;
use Mango::BSON ':bson';

my $uri = 'mongodb://<user>:<pass>@<server>/<database>';
helper mango => sub { state $mango = Mango->new($uri) };

# Store and retrieve information non-blocking
get '/' => sub {
  my $c = shift;

  my $collection = $c->mango->db->collection('visitors');
  my $ip         = $c->tx->remote_address;

  # Store information about current visitor
  $collection->insert({when => bson_time, from => $ip} => sub {
    my ($collection, $err, $oid) = @_;

    return $c->reply->exception($err) if $err;

    # Retrieve information about previous visitors
    $collection->find->sort({when => -1})->fields({_id => 0})->all(sub {
      my ($collection, $err, $docs) = @_;

      return $c->reply->exception($err) if $err;

      # And show it to current visitor
      $c->render(json => $docs);
    });
  });
};

app->start;

Installation

All you need is a oneliner, it takes less than a minute.

$ curl -L cpanmin.us | perl - -n Mango

We recommend the use of a Perlbrew environment.