Rename implementation to private packages

dagolden · Jul 1, 2019 · d41d25e · d41d25e
1 parent f7d54f1
commit d41d25e
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/lib/MongoDBx/Queue.pm b/lib/MongoDBx/Queue.pm
@@ -16,7 +16,7 @@ use MongoDB 2 ();
 use namespace::autoclean;
 
 with (
-    'MongoDBx::Queue::Role::CommonOptions',
+    'MongoDBx::Queue::Role::_CommonOptions',
 );
 
 #--------------------------------------------------------------------------#
@@ -84,12 +84,12 @@ sub _build__implementation {
         collection_name => $self->collection_name,
     };
     if ($self->version == 1) {
-        require MongoDBx::Queue::V1;
-        return MongoDBx::Queue::V1->new($options);
+        require MongoDBx::Queue::_V1;
+        return MongoDBx::Queue::_V1->new($options);
     }
     elsif ($self->version == 2) {
-        require MongoDBx::Queue::V2;
-        return MongoDBx::Queue::V2->new($options);
+        require MongoDBx::Queue::_V2;
+        return MongoDBx::Queue::_V2->new($options);
     }
     else {
         die "Invalid MongoDBx::Queue 'version' (must be 1 or 2)"

diff --git a/lib/MongoDBx/Queue/Role/CommonOptions.pm → lib/MongoDBx/Queue/Role/_CommonOptions.pm b/lib/MongoDBx/Queue/Role/CommonOptions.pm → lib/MongoDBx/Queue/Role/_CommonOptions.pm
@@ -2,7 +2,7 @@ use 5.010;
 use strict;
 use warnings;
 
-package MongoDBx::Queue::Role::CommonOptions;
+package MongoDBx::Queue::Role::_CommonOptions;
 
 our $VERSION = '2.001';
 

diff --git a/lib/MongoDBx/Queue/V1.pm → lib/MongoDBx/Queue/_V1.pm b/lib/MongoDBx/Queue/V1.pm → lib/MongoDBx/Queue/_V1.pm
@@ -2,7 +2,7 @@ use 5.010;
 use strict;
 use warnings;
 
-package MongoDBx::Queue::V1;
+package MongoDBx::Queue::_V1;
 
 # V1 implementation
 
@@ -21,7 +21,7 @@ my $PRIORITY = '_p';
 with (
     'MooseX::Role::Logger',
     'MooseX::Role::MongoDB' => { -version => 1.000 },
-    'MongoDBx::Queue::Role::CommonOptions',
+    'MongoDBx::Queue::Role::_CommonOptions',
 );
 
 sub _build__mongo_default_database { $_[0]->database_name }

diff --git a/lib/MongoDBx/Queue/V2.pm → lib/MongoDBx/Queue/_V2.pm b/lib/MongoDBx/Queue/V2.pm → lib/MongoDBx/Queue/_V2.pm
@@ -2,7 +2,7 @@ use 5.010;
 use strict;
 use warnings;
 
-package MongoDBx::Queue::V2;
+package MongoDBx::Queue::_V2;
 
 # V2 implementation
 
@@ -22,7 +22,7 @@ my $PRIORITY = '_p';
 with(
     'MooseX::Role::Logger',
     'MooseX::Role::MongoDB' => { -version => 1.000 },
-    'MongoDBx::Queue::Role::CommonOptions',
+    'MongoDBx::Queue::Role::_CommonOptions',
 );
 
 sub _build__mongo_default_database { $_[0]->database_name }