use 5.008001;
use strict;
use warnings;

use MongoDB::BSON;
use MongoDB::OID;

package TestCodecWrapper;

our @ISA = qw/MongoDB::BSON/;

sub create_oid {
    my $oid = MongoDB::OID->new();
    return bless $oid, "TestCodecWrapper::OID";
}

package TestCodecWrapper::OID;

our @ISA = qw/MongoDB::OID/;

1;