[libmongodb-perl] 03/03: Remove editor backup files

[dom at earth.li]

This is an automated email from the git hooks/post-receive script.

dom pushed a commit to branch master
in repository libmongodb-perl.

commit 82533ae70f4aa2992ce6bd0ef5bb373f68cca184
Author: Dominic Hargreaves <dom at earth.li>
Date:   Tue Aug 13 21:43:13 2013 +0200

    Remove editor backup files
---
 debian/changelog      |    1 +
 lib/MongoDB/DBRef.pm~ |   90 -------------------------------------------------
 t/dbref.t~            |   24 -------------
 t/delegation.t~       |   30 -----------------
 4 files changed, 1 insertion(+), 144 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 051f597..085d979 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -5,6 +5,7 @@ libmongodb-perl (0.700.0-2) UNRELEASED; urgency=low
   * Ignore failures to stop the test mongod process, since it may have
     not started up successfully if mongod was started from an init script
     (see: #719641)
+  * Remove editor backup files
 
  -- Dominic Hargreaves <dom at earth.li>  Tue, 13 Aug 2013 21:28:11 +0200
 
diff --git a/lib/MongoDB/DBRef.pm~ b/lib/MongoDB/DBRef.pm~
deleted file mode 100644
index 19fc79e..0000000
--- a/lib/MongoDB/DBRef.pm~
+++ /dev/null
@@ -1,90 +0,0 @@
-package MongoDB::DBRef;
-
-# ABSTRACT: Native DBRef support
-
-use Moose;
-use Carp 'croak';
-
-# no type constraint since an _id can be anything
-has id => (
-    is        => 'rw',
-    required  => 1 
-);
-
-has ref => (
-    is        => 'rw',
-    isa       => 'Str',
-    required  => 1
-);
-
-has db => ( 
-    is        => 'rw',
-    isa       => 'Str',
-    required  => 0
-);
-
-has client => (
-    is        => 'ro',
-    isa       => 'MongoDB::MongoClient',
-    required  => 0
-);
-
-sub fetch { 
-    my $self = shift;
-
-    croak "Can't fetch DBRef without a MongoClient. Specify a 'client' attribute."
-      unless $self->client;
-
-    
-
-
-1;
-
-
-__END__
-
-=head1 NAME
-
-MongoDB::DBRef - A MongoDB database reference
-
-=head1 SYNOPSIS
-
-    my $dbref = MongoDB::DBRef->new( ref => 'my_collection', id => 123 );
-    $coll->insert( { foo => 'bar', other_doc => $dbref } );
-
-    my $other_doc = $coll->find_one( { foo => 'bar' } )->{other_doc}->fetch;
-
-=head1 DESCRIPTION
-
-This module provides support for database references (DBRefs) in the Perl 
-MongoDB driver. A DBRef is a special embedded document which points to 
-another document in the database. DBRefs are not the same as foreign keys
-and do not provide any referential integrity or constraint checking. For example,
-a DBRef may point to a document that no longer exists (or never existed.)
-
-=head1 ATTRIBUTES
-
-=head2 db
-
-Optional. The database in which the referenced document lives. If this 
-attribute is not specified, the current database is assumed.
-
-=head2 ref
-
-The collection in which the referenced document lives. This attribute is required.
-
-=head2 id
-
-The C<_id> value of the referenced document. This attribute is required. If the 
-C<_id> is an ObjectID, then you must use a L<MongoDB::OID> object.
-
-=head2 client
-
-Optional. A L<MongoDB::MongoClient> object to be used to fetch the referenced document
-from the database. You must supply this attribute if you want to use the C<fetch> method.
-
-When you retrieve a document from MongoDB, any DBRefs will automatically be inflated
-into C<MongoDB::DBRef> objects with the C<client> attribute automatically populated.
-
-It is not necessary to specify a C<client> if you are just making DBRefs to insert
-in the database as part of a larger document. 
diff --git a/t/dbref.t~ b/t/dbref.t~
deleted file mode 100644
index fdcef80..0000000
--- a/t/dbref.t~
+++ /dev/null
@@ -1,24 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-use Test::Exception;
-
-use MongoDB;
-
-my $conn;
-eval {
-    my $host = "localhost";
-    if (exists $ENV{MONGOD}) {
-        $host = $ENV{MONGOD};
-    }
-    $conn = MongoDB::MongoClient->new(host => $host, ssl => $ENV{MONGO_SSL});
-};
-
-if ($@) {
-    plan skip_all => $@;
-}
-else {
-    plan tests => 1;
-}
-
-
diff --git a/t/delegation.t~ b/t/delegation.t~
deleted file mode 100644
index b20e7e1..0000000
--- a/t/delegation.t~
+++ /dev/null
@@ -1,30 +0,0 @@
-use strict;
-use warnings;
-use Test::More;
-
-use MongoDB::Timestamp; # needed if db is being run as master
-use MongoDB;
-use DateTime;
-use DateTime::Tiny;
-
-my $conn;
-eval {
-    my $host = "localhost";
-    if (exists $ENV{MONGOD}) {
-        $host = $ENV{MONGOD};
-    }
-    $conn = MongoDB::MongoClient->new(host => $host, ssl => $ENV{MONGO_SSL});
-};
-
-if ($@) {
-    plan skip_all => $@;
-}
-else {
-    plan tests => 1;
-}
-
-
-# test that Connection delegates constructor params to MongoClient correctly
-my $conn = MongoDB::Connection->new( host => '127.0.0.2' );
-
-is ( $conn->host, '127.0.0.2' );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmongodb-perl.git