Yet Another CPAN Grep

AnyMongo ( D/DO/DOGGY/AnyMongo-0.03.tar.gz, DOGGY, 2010; MetaCPAN )

AnyMongo/lib/AnyMongo/BSON/OID.pm ( view source; MetaCPAN )


        $ts = ($ts * 256) + hex(substr($self->value, $i*2, 2));
    }
    return $ts;
}


sub TO_JSON {
    my ($self) = @_;
    return {'$oid' => $self->value};
}

use overload
    '""' => \&to_stri

s the timestamp.  

=head2 TO_JSON

    my $json = JSON->new;
    $json->allow_blessed;
    $json->convert_blessed;

    $json->encode(MongoDB::OID->new);

Returns a JSON string for this OID.  This is