module-cluster 1.2.2 → 1.2.3

data/lib/module-cluster/ModuleCluster/Define/ModuleCluster.rb

@@ -1,12 +1,18 @@
 
 module ModuleCluster::Define::ModuleCluster
-
+  
+  include ModuleCluster::Define::AnonymousModule
+  
 	###########################
 	#  include_also_includes  #
 	###########################
 
 	def include_also_includes( *includes )
-	  includes_module = anonymous_module_included( :include, *includes )
+	  includes_module = anonymous_module_for_included do
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -16,7 +22,11 @@ module ModuleCluster::Define::ModuleCluster
 	##########################
 	
 	def include_also_extends( *extends )
-	  extends_module = anonymous_module_included( :extend, *extends )
+	  extends_module = anonymous_module_for_included do
+	    extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -36,7 +46,11 @@ module ModuleCluster::Define::ModuleCluster
 	##########################
 
 	def extend_also_includes( *includes )
-	  includes_module = anonymous_module_extended( :include, *includes )
+	  includes_module = anonymous_module_for_extended do
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -46,7 +60,11 @@ module ModuleCluster::Define::ModuleCluster
 	#########################
 	
 	def extend_also_extends( *extends )
-	  extends_module = anonymous_module_extended( :extend, *extends )
+	  extends_module = anonymous_module_for_extended do
+	    extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -66,7 +84,11 @@ module ModuleCluster::Define::ModuleCluster
 	###############################
 
 	def include_prepends_includes( *includes )
-	  includes_module = anonymous_module_append_features( :include, *includes )
+	  includes_module = anonymous_module_for_append_features do
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -76,7 +98,11 @@ module ModuleCluster::Define::ModuleCluster
 	##############################
 	
 	def include_prepends_extends( *extends )
-	  extends_module = anonymous_module_append_features( :extend, *extends )
+	  extends_module = anonymous_module_for_append_features do
+	    extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -96,7 +122,11 @@ module ModuleCluster::Define::ModuleCluster
 	##############################
 
 	def extend_prepends_includes( *includes )
-	  includes_module = anonymous_module_extend_object( :include, *includes )
+	  includes_module = anonymous_module_for_extend_object do
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -106,7 +136,11 @@ module ModuleCluster::Define::ModuleCluster
 	#############################
 	
 	def extend_prepends_extends( *extends )
-	  extends_module = anonymous_module_extend_object( :extend, *extends )
+	  extends_module = anonymous_module_for_extend_object do
+	    extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end

data/lib/module-cluster/ModuleCluster/Define/ModuleClusterCascades.rb

@@ -1,12 +1,20 @@
 
 module ModuleCluster::Define::ModuleClusterCascades
 
+  include ModuleCluster::Define::AnonymousModule
+
 	###############################
 	#  include_cascades_includes  #
 	###############################
 
 	def include_cascades_includes( *includes )
-	  includes_module = anonymous_module_cascade_included( :include, *includes )
+	  includes_module = anonymous_module_for_included do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      include_cascades_includes( *includes )
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -16,7 +24,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	##############################
 
 	def include_cascades_extends( *extends )
-	  extends_module = anonymous_module_cascade_included( :extend, *extends )
+	  extends_module = anonymous_module_for_included do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      include_cascades_extends( *extends )
+      extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -36,7 +50,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	##############################
 
 	def extend_cascades_includes( *includes )
-	  includes_module = anonymous_module_cascade_extended( :include, *includes )
+	  includes_module = anonymous_module_for_extended do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      extend_cascades_includes( *includes )
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -46,7 +66,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	#############################
 
 	def extend_cascades_extends( *extends )
-	  extends_module = anonymous_module_cascade_extended( :extend, *extends )
+	  extends_module = anonymous_module_for_extended do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      extend_cascades_extends( *extends )
+      extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -66,7 +92,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	##########################################
 
 	def include_cascades_prepending_includes( *includes )
-	  includes_module = anonymous_module_cascade_append_features( :include, *includes )
+	  includes_module = anonymous_module_for_append_features do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      include_cascades_prepending_includes( *includes )
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -76,7 +108,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	#########################################
 
 	def include_cascades_prepending_extends( *extends )
-	  extends_module = anonymous_module_cascade_append_features( :extend, *extends )
+	  extends_module = anonymous_module_for_append_features do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      include_cascades_prepending_extends( *extends )
+      extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -96,7 +134,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	#########################################
 
 	def extend_cascades_prepending_includes( *includes )
-	  includes_module = anonymous_module_cascade_extend_object( :include, *includes )
+	  includes_module = anonymous_module_for_extend_object do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      extend_cascades_prepending_includes( *includes )
+      includes.each do |this_module|
+        include( this_module )
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -106,7 +150,13 @@ module ModuleCluster::Define::ModuleClusterCascades
 	########################################
 
 	def extend_cascades_prepending_extends( *extends )
-	  extends_module = anonymous_module_cascade_extend_object( :extend, *extends )
+	  extends_module = anonymous_module_for_extend_object do
+      extend ModuleCluster::Define::ModuleClusterCascades
+      extend_cascades_prepending_extends( *extends )
+      extends.each do |this_module|
+        extend( this_module )
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end

data/lib/module-cluster/ModuleCluster/Define/ModuleClusterCascadesToClass.rb

@@ -1,12 +1,22 @@
 
 module ModuleCluster::Define::ModuleClusterCascadesToClass
 
+  include ModuleCluster::Define::AnonymousModule
+
 	########################################
 	#  include_cascades_includes_to_class  #
 	########################################
 
 	def include_cascades_includes_to_class( *includes )
-	  includes_module = anonymous_module_cascade_to_class_included( :include, *includes )
+	  includes_module = anonymous_module_for_included do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      include_cascades_includes_to_class( *includes )
+      if is_a?( Class )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -16,7 +26,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	#######################################
 
 	def include_cascades_extends_to_class( *extends )
-	  extends_module = anonymous_module_cascade_to_class_included( :extend, *extends )
+	  extends_module = anonymous_module_for_included do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      include_cascades_extends_to_class( *extends )
+      if is_a?( Class )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -36,7 +54,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	#######################################
 
 	def extend_cascades_includes_to_class( *includes )
-	  includes_module = anonymous_module_cascade_to_class_extended( :include, *includes )
+	  includes_module = anonymous_module_for_extended do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      extend_cascades_includes_to_class( *includes )
+      if is_a?( Class )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -46,7 +72,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	######################################
 
 	def extend_cascades_extends_to_class( *extends )
-	  extends_module = anonymous_module_cascade_to_class_extended( :extend, *extends )
+	  extends_module = anonymous_module_for_extended do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      extend_cascades_extends_to_class( *extends )
+      if is_a?( Class )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -66,7 +100,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	###################################################
 
 	def include_cascades_to_class_prepending_includes( *includes )
-	  includes_module = anonymous_module_cascade_to_class_append_features( :include, *includes )
+	  includes_module = anonymous_module_for_append_features do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      include_cascades_to_class_prepending_includes( *includes )
+      if is_a?( Class )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -76,7 +118,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	##################################################
 
 	def include_cascades_to_class_prepending_extends( *extends )
-	  extends_module = anonymous_module_cascade_to_class_append_features( :extend, *extends )
+	  extends_module = anonymous_module_for_append_features do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      include_cascades_to_class_prepending_extends( *extends )
+      if is_a?( Class )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -96,7 +146,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	##################################################
 
 	def extend_cascades_to_class_prepending_includes( *includes )
-	  includes_module = anonymous_module_cascade_to_class_extend_object( :include, *includes )
+	  includes_module = anonymous_module_for_extend_object do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      extend_cascades_to_class_prepending_includes( *includes )
+      if is_a?( Class )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -106,7 +164,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	#################################################
 
 	def extend_cascades_to_class_prepending_extends( *extends )
-	  extends_module = anonymous_module_cascade_to_class_extend_object( :extend, *extends )
+	  extends_module = anonymous_module_for_extend_object do
+      extend ModuleCluster::Define::ModuleClusterCascadesToClass
+      extend_cascades_to_class_prepending_extends( *extends )
+      if is_a?( Class )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end

data/lib/module-cluster/ModuleCluster/Define/ModuleClusterCascadesToModule.rb

@@ -1,12 +1,22 @@
 
 module ModuleCluster::Define::ModuleClusterCascadesToModule
 
+  include ModuleCluster::Define::AnonymousModule
+
 	#########################################
 	#  include_cascades_includes_to_module  #
 	#########################################
 
 	def include_cascades_includes_to_module( *includes )
-	  includes_module = anonymous_module_cascade_to_module_included( :include, *includes )
+	  includes_module = anonymous_module_for_included do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        include_cascades_includes_to_module( *includes )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -16,7 +26,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	########################################
 
 	def include_cascades_extends_to_module( *extends )
-	  extends_module = anonymous_module_cascade_to_module_included( :extend, *extends )
+	  extends_module = anonymous_module_for_included do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        include_cascades_extends_to_module( *extends )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -36,7 +54,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	########################################
 
 	def extend_cascades_includes_to_module( *includes )
-	  includes_module = anonymous_module_cascade_to_module_extended( :include, *includes )
+	  includes_module = anonymous_module_for_extended do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        extend_cascades_includes_to_module( *includes )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -46,7 +72,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	#######################################
 
 	def extend_cascades_extends_to_module( *extends )
-	  extends_module = anonymous_module_cascade_to_module_extended( :extend, *extends )
+	  extends_module = anonymous_module_for_extended do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        extend_cascades_extends_to_module( *extends )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -66,7 +100,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	####################################################
 
 	def include_cascades_to_module_prepending_includes( *includes )
-	  includes_module = anonymous_module_cascade_to_module_append_features( :include, *includes )
+	  includes_module = anonymous_module_for_append_features do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        include_cascades_to_module_prepending_includes( *includes )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -76,7 +118,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	###################################################
 
 	def include_cascades_to_module_prepending_extends( *extends )
-	  extends_module = anonymous_module_cascade_to_module_append_features( :extend, *extends )
+	  extends_module = anonymous_module_for_append_features do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        include_cascades_to_module_prepending_extends( *extends )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end
@@ -96,7 +146,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	###################################################
 
 	def extend_cascades_to_module_prepending_includes( *includes )
-	  includes_module = anonymous_module_cascade_to_module_extend_object( :include, *includes )
+	  includes_module = anonymous_module_for_extend_object do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        extend_cascades_to_module_prepending_includes( *includes )
+        includes.each do |this_module|
+          include( this_module )
+        end
+      end
+    end
     clusterstack_module { include( includes_module ) }
 		return self
 	end
@@ -106,7 +164,15 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	##################################################
 
 	def extend_cascades_to_module_prepending_extends( *extends )
-	  extends_module = anonymous_module_cascade_to_module_extend_object( :extend, *extends )
+	  extends_module = anonymous_module_for_extend_object do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        extend_cascades_to_module_prepending_extends( *extends )
+        extends.each do |this_module|
+          extend( this_module )
+        end
+      end
+    end
     clusterstack_module { include( extends_module ) }
 		return self
 	end

data/lib/module-cluster/ModuleCluster/Define/_private_/AnonymousModule.rb

@@ -0,0 +1,121 @@
+
+module ModuleCluster::Define::AnonymousModule
+
+  ###########################################################################################################
+      private ###############################################################################################
+  ###########################################################################################################
+
+  include ModuleCluster::Define::ClusterStack
+
+  ##########################################
+  #  anonymous_module_for_append_features  #
+  ##########################################
+
+	def anonymous_module_for_append_features( & method_block )
+
+    module_instance = Module.new do
+
+      #-------------------#
+      #  append_features  #
+      #-------------------#
+
+      define_method( :append_features ) do |class_or_module|
+        class_or_module.module_eval( & method_block )
+        super( class_or_module )
+      end
+
+    end
+
+    set_anonymous_module_constant( 'AppendFeatures', module_instance )
+    
+    return module_instance
+    
+  end
+
+  ###################################
+  #  anonymous_module_for_included  #
+  ###################################
+
+	def anonymous_module_for_included( & method_block )
+
+    module_instance = Module.new do
+
+      #------------#
+      #  included  #
+      #------------#
+
+      define_method( :included ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval( & method_block )
+      end
+
+    end
+
+    set_anonymous_module_constant( 'Included', module_instance )
+    
+    return module_instance
+
+  end
+
+  ########################################
+  #  anonymous_module_for_extend_object  #
+  ########################################
+
+	def anonymous_module_for_extend_object( & method_block )
+
+    module_instance = Module.new do
+
+      #-----------------#
+      #  extend_object  #
+      #-----------------#
+
+      define_method( :extend_object ) do |class_or_module|
+        class_or_module.module_eval( & method_block )
+        super( class_or_module )
+      end
+
+    end
+
+    set_anonymous_module_constant( 'ExtendObject', module_instance )
+    
+    return module_instance
+
+  end
+
+  ###################################
+  #  anonymous_module_for_extended  #
+  ###################################
+
+	def anonymous_module_for_extended( & method_block )
+
+    module_instance = Module.new do
+
+      #------------#
+      #  extended  #
+      #------------#
+
+      define_method( :extended ) do |class_or_module|
+        super( class_or_module )
+        class_or_module.module_eval( & method_block )
+      end
+
+    end
+
+    set_anonymous_module_constant( 'Included', module_instance )
+    
+    return module_instance
+
+  end
+
+  ###################################
+  #  set_anonymous_module_constant  #
+  ###################################
+
+  def set_anonymous_module_constant( base_name, module_instance )
+    
+    module_constant_name = ( base_name << clusterstack_module.increment_stack_count.to_s ).to_sym
+    const_set( module_constant_name, module_instance )
+    
+  end
+  
+end

data/lib/module-cluster/ModuleCluster/Define/_private_/ClusterStack.rb

@@ -1,6 +1,6 @@
 
 module ModuleCluster::Define::ClusterStack
-
+  
   ###########################################################################################################
       private ###############################################################################################
   ###########################################################################################################
@@ -12,7 +12,20 @@ module ModuleCluster::Define::ClusterStack
   def clusterstack_module( & clusterstack_extend_include_block )
     
     unless const_defined?( :ClusterStackModule )
-      const_set( :ClusterStackModule, Module.new )
+      module_instance = Module.new do
+
+        #-------------------------#
+        #  increment_stack_count  #
+        #-------------------------#
+
+        def self.increment_stack_count
+          @stack_count ||= 0
+          @stack_count += 1
+          return @stack_count
+        end
+
+      end
+      const_set( :ClusterStackModule, module_instance )
     end
     
     # we use a block so that we don't have to worry about re-extending each time

data/lib/module-cluster.rb

@@ -1,6 +1,8 @@
 
 module ModuleCluster
   module Define
+    module AnonymousModule
+    end
     module ClusterStack
     end
     module ModuleCluster
@@ -16,14 +18,12 @@ module ModuleCluster
   end
 end
 
-require_relative 'module-cluster/ModuleCluster.rb'
+require_relative 'module-cluster/ModuleCluster/Define/_private_/AnonymousModule.rb'
+require_relative 'module-cluster/ModuleCluster/Define/_private_/ClusterStack.rb'
+
 require_relative 'module-cluster/ModuleCluster/Define/ModuleCluster.rb'
 require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascades.rb'
 require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascadesToClass.rb'
 require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascadesToModule.rb'
 require_relative 'module-cluster/ModuleCluster/Define/Deprecated.rb'
-require_relative 'module-cluster/ModuleCluster/Define/_private_/ClusterStack.rb'
-require_relative 'module-cluster/ModuleCluster/Define/_private_/ModuleCluster.rb'
-require_relative 'module-cluster/ModuleCluster/Define/_private_/ModuleClusterCascades.rb'
-require_relative 'module-cluster/ModuleCluster/Define/_private_/ModuleClusterCascadesToClass.rb'
-require_relative 'module-cluster/ModuleCluster/Define/_private_/ModuleClusterCascadesToModule.rb'
+require_relative 'module-cluster/ModuleCluster.rb'