File Coverage

blib/lib/Message/MongoDB/Test.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	25	27	92.5

package Message::MongoDB::Test;

use strict;use warnings;
use MongoDB;
use Test::More;

=head2 test_db_name
=cut
sub test_db_name {
    return "perl_test_$$";
}

=head2 test_collection_name
=cut
sub test_collection_name {
    return "perl_test_collection_$$";
}


END {
    if($main::mongo->{connection}) {
        $main::mongo->{connection}->get_database(test_db_name())->drop;
    }
};
1;