module-cluster 1.3.0 → 1.3.1

data/lib/module-cluster.rb

@@ -1,5 +1,7 @@
 
 module ModuleCluster
+  module Eigenclass
+  end
   module Define
     module AnonymousModule
     end
@@ -27,3 +29,4 @@ require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascadesToCla
 require_relative 'module-cluster/ModuleCluster/Define/ModuleClusterCascadesToModule.rb'
 require_relative 'module-cluster/ModuleCluster/Define/Deprecated.rb'
 require_relative 'module-cluster/ModuleCluster.rb'
+

data/lib/module-cluster/ModuleCluster.rb

@@ -1,6 +1,6 @@
 
 module ModuleCluster
-	
+	  
 	include ModuleCluster::Define::ClusterStack
 
   include ModuleCluster::Define::ModuleCluster

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

@@ -3,17 +3,38 @@ module ModuleCluster::Define::ModuleCluster
   
   include ModuleCluster::Define::AnonymousModule
   
+  ########################
+  #  self.include_block  #
+  ########################
+  
+  def self.include_block( *includes )
+    return Proc.new do
+      unless ( includes -= ancestors ).empty?
+        include( *includes.reverse )
+      end
+    end
+  end
+
+  #######################
+  #  self.extend_block  #
+  #######################
+  
+  def self.extend_block( *extends )
+    return Proc.new do
+      eigenclass = class << self ; self ; end
+      unless ( extends -= eigenclass.ancestors ).empty?
+        extend( *extends.reverse )
+      end
+    end
+  end
+  
 	###########################
 	#  include_also_includes  #
 	###########################
 
 	def include_also_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_included do
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+	  includes_module = anonymous_module_for_included( & ModuleCluster::Define::ModuleCluster.include_block( *includes ) )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -22,12 +43,8 @@ module ModuleCluster::Define::ModuleCluster
 	##########################
 	
 	def include_also_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_included do
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+	  extends_module = anonymous_module_for_included( & ModuleCluster::Define::ModuleCluster.extend_block( *extends ) )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -46,12 +63,8 @@ module ModuleCluster::Define::ModuleCluster
 	##########################
 
 	def extend_also_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extended do
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+	  includes_module = anonymous_module_for_extended( & ModuleCluster::Define::ModuleCluster.include_block( *includes ) )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -60,12 +73,8 @@ module ModuleCluster::Define::ModuleCluster
 	#########################
 	
 	def extend_also_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extended do
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+	  extends_module = anonymous_module_for_extended( & ModuleCluster::Define::ModuleCluster.extend_block( *extends ) )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -84,12 +93,8 @@ module ModuleCluster::Define::ModuleCluster
 	###############################
 
 	def include_prepends_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_append_features do
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+	  includes_module = anonymous_module_for_append_features( & ModuleCluster::Define::ModuleCluster.include_block( *includes ) )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 
@@ -98,12 +103,8 @@ module ModuleCluster::Define::ModuleCluster
 	##############################
 	
 	def include_prepends_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_append_features do
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+	  extends_module = anonymous_module_for_append_features( & ModuleCluster::Define::ModuleCluster.extend_block( *extends ) )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -122,12 +123,8 @@ module ModuleCluster::Define::ModuleCluster
 	##############################
 
 	def extend_prepends_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extend_object do
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+	  includes_module = anonymous_module_for_extend_object( & ModuleCluster::Define::ModuleCluster.include_block( *includes ) )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 
@@ -136,12 +133,8 @@ module ModuleCluster::Define::ModuleCluster
 	#############################
 	
 	def extend_prepends_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extend_object do
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+	  extends_module = anonymous_module_for_extend_object( & ModuleCluster::Define::ModuleCluster.extend_block( *extends ) )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	

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

@@ -2,20 +2,44 @@
 module ModuleCluster::Define::ModuleClusterCascades
 
   include ModuleCluster::Define::AnonymousModule
+  
+  ########################
+  #  self.include_block  #
+  ########################
+  
+  def self.include_block( cascade_method, *includes )
+    return Proc.new do
+      unless ( includes -= ancestors ).empty?
+        extend ModuleCluster::Define::ModuleClusterCascades
+        __send__( cascade_method, *includes )
+        include( *includes.reverse )
+      end
+    end
+  end
+
+  #######################
+  #  self.extend_block  #
+  #######################
+  
+  def self.extend_block( cascade_method, *extends )
+    return Proc.new do
+      eigenclass = class << self ; self ; end
+      unless ( extends -= eigenclass.ancestors ).empty?
+        extend ModuleCluster::Define::ModuleClusterCascades
+        __send__( cascade_method, *extends )
+        extend( *extends.reverse )
+      end
+    end
+  end
 
 	###############################
 	#  include_cascades_includes  #
 	###############################
 
 	def include_cascades_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_included( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        include_cascades_includes( *includes )
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascades.include_block( :include_cascades_includes, *includes )
+	  includes_module = anonymous_module_for_included( 'Cascades', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -24,14 +48,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	##############################
 
 	def include_cascades_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_included( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        include_cascades_extends( *extends )
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascades.extend_block( :include_cascades_extends, *extends )
+	  extends_module = anonymous_module_for_included( 'Cascades', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -50,14 +69,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	##############################
 
 	def extend_cascades_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extended( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        extend_cascades_includes( *includes )
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascades.include_block( :extend_cascades_includes, *includes )
+	  includes_module = anonymous_module_for_extended( 'Cascades', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -66,14 +80,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	#############################
 
 	def extend_cascades_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extended( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        extend_cascades_extends( *extends )
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascades.extend_block( :extend_cascades_extends, *extends )
+	  extends_module = anonymous_module_for_extended( 'Cascades', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -92,14 +101,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	##########################################
 
 	def include_cascades_prepending_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_append_features( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        include_cascades_prepending_includes( *includes )
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascades.include_block( :include_cascades_prepending_includes, *includes )
+	  includes_module = anonymous_module_for_append_features( 'Cascades', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -108,14 +112,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	#########################################
 
 	def include_cascades_prepending_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_append_features( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        include_cascades_prepending_extends( *extends )
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascades.extend_block( :include_cascades_prepending_extends, *extends )
+	  extends_module = anonymous_module_for_append_features( 'Cascades', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -134,14 +133,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	#########################################
 
 	def extend_cascades_prepending_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extend_object( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        extend_cascades_prepending_includes( *includes )
-        include( *includes.reverse )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascades.include_block( :extend_cascades_prepending_includes, *includes )
+	  includes_module = anonymous_module_for_extend_object( 'Cascades', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -150,14 +144,9 @@ module ModuleCluster::Define::ModuleClusterCascades
 	########################################
 
 	def extend_cascades_prepending_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extend_object( 'Cascades' ) do
-        extend ModuleCluster::Define::ModuleClusterCascades
-        extend_cascades_prepending_extends( *extends )
-        extend( *extends.reverse )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascades.extend_block( :extend_cascades_prepending_extends, *extends )
+	  extends_module = anonymous_module_for_extend_object( 'Cascades', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	

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

@@ -3,19 +3,43 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 
   include ModuleCluster::Define::AnonymousModule
 
+  ########################
+  #  self.include_block  #
+  ########################
+  
+  def self.include_block( cascade_method, *includes )
+    return Proc.new do
+      unless ( includes -= ancestors ).empty?
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass
+        __send__( cascade_method, *includes )
+        include( *includes.reverse ) if is_a?( Class )
+      end
+    end
+  end
+
+  #######################
+  #  self.extend_block  #
+  #######################
+  
+  def self.extend_block( cascade_method, *extends )
+    return Proc.new do
+      eigenclass = class << self ; self ; end
+      unless ( extends -= eigenclass.ancestors ).empty?
+        extend ModuleCluster::Define::ModuleClusterCascadesToClass
+        __send__( cascade_method, *extends )
+        extend( *extends.reverse ) if is_a?( Class )
+      end
+    end
+  end
+  
 	########################################
 	#  include_cascades_includes_to_class  #
 	########################################
 
 	def include_cascades_includes_to_class( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_included( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        include_cascades_includes_to_class( *includes )
-        include( *includes.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToClass.include_block( :include_cascades_includes_to_class, *includes )
+	  includes_module = anonymous_module_for_included( 'CascadesToClass', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -24,14 +48,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	#######################################
 
 	def include_cascades_extends_to_class( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_included( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        include_cascades_extends_to_class( *extends )
-        extend( *extends.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToClass.extend_block( :include_cascades_extends_to_class, *extends )
+	  extends_module = anonymous_module_for_included( 'CascadesToClass', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -50,14 +69,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	#######################################
 
 	def extend_cascades_includes_to_class( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extended( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        extend_cascades_includes_to_class( *includes )
-        include( *includes.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToClass.include_block( :extend_cascades_includes_to_class, *includes )
+	  includes_module = anonymous_module_for_extended( 'CascadesToClass', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -66,14 +80,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	######################################
 
 	def extend_cascades_extends_to_class( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extended( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        extend_cascades_extends_to_class( *extends )
-        extend( *extends.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToClass.extend_block( :extend_cascades_extends_to_class, *extends )
+	  extends_module = anonymous_module_for_extended( 'CascadesToClass', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -92,14 +101,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	###################################################
 
 	def include_cascades_to_class_prepending_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_append_features( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        include_cascades_to_class_prepending_includes( *includes )
-        include( *includes.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToClass.include_block( :include_cascades_to_class_prepending_includes, *includes )
+	  includes_module = anonymous_module_for_append_features( 'CascadesToClass', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -108,14 +112,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	##################################################
 
 	def include_cascades_to_class_prepending_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_append_features( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        include_cascades_to_class_prepending_extends( *extends )
-        extend( *extends.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToClass.extend_block( :include_cascades_to_class_prepending_extends, *extends )
+	  extends_module = anonymous_module_for_append_features( 'CascadesToClass', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -134,14 +133,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	##################################################
 
 	def extend_cascades_to_class_prepending_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extend_object( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        extend_cascades_to_class_prepending_includes( *includes )
-        include( *includes.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToClass.include_block( :extend_cascades_to_class_prepending_includes, *includes )
+	  includes_module = anonymous_module_for_extend_object( 'CascadesToClass', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -150,14 +144,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToClass
 	#################################################
 
 	def extend_cascades_to_class_prepending_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extend_object( 'CascadesToClass' ) do
-        extend ModuleCluster::Define::ModuleClusterCascadesToClass
-        extend_cascades_to_class_prepending_extends( *extends )
-        extend( *extends.reverse ) if is_a?( Class )
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToClass.extend_block( :extend_cascades_to_class_prepending_extends, *extends )
+	  extends_module = anonymous_module_for_extend_object( 'CascadesToClass', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	

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

@@ -3,21 +3,47 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 
   include ModuleCluster::Define::AnonymousModule
 
+  ########################
+  #  self.include_block  #
+  ########################
+  
+  def self.include_block( cascade_method, *includes )
+    return Proc.new do
+      unless is_a?( Class )
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        __send__( cascade_method, *includes )
+        unless ( includes -= ancestors ).empty?
+          include( *includes.reverse )
+        end
+      end
+    end
+  end
+
+  #######################
+  #  self.extend_block  #
+  #######################
+  
+  def self.extend_block( cascade_method, *extends )
+    return Proc.new do
+      unless is_a?( Class )
+        eigenclass = class << self ; self ; end
+        extend ModuleCluster::Define::ModuleClusterCascadesToModule
+        __send__( cascade_method, *extends )
+        unless ( extends -= eigenclass.ancestors ).empty?
+          extend( *extends.reverse )
+        end
+      end
+    end
+  end
+  
 	#########################################
 	#  include_cascades_includes_to_module  #
 	#########################################
 
 	def include_cascades_includes_to_module( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_included( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          include_cascades_includes_to_module( *includes )
-          include( *includes.reverse )
-        end
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToModule.include_block( :include_cascades_includes_to_module, *includes )
+	  includes_module = anonymous_module_for_included( 'CascadesToModule', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -26,16 +52,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	########################################
 
 	def include_cascades_extends_to_module( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_included( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          include_cascades_extends_to_module( *extends )
-          extend( *extends.reverse )
-        end
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToModule.extend_block( :include_cascades_extends_to_module, *extends )
+	  extends_module = anonymous_module_for_included( 'CascadesToModule', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -54,16 +73,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	########################################
 
 	def extend_cascades_includes_to_module( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extended( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          extend_cascades_includes_to_module( *includes )
-          include( *includes.reverse )
-        end
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToModule.include_block( :extend_cascades_includes_to_module, *includes )
+	  includes_module = anonymous_module_for_extended( 'CascadesToModule', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -72,16 +84,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	#######################################
 
 	def extend_cascades_extends_to_module( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extended( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          extend_cascades_extends_to_module( *extends )
-          extend( *extends.reverse )
-        end
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToModule.extend_block( :extend_cascades_extends_to_module, *extends )
+	  extends_module = anonymous_module_for_extended( 'CascadesToModule', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -100,16 +105,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	####################################################
 
 	def include_cascades_to_module_prepending_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_append_features( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          include_cascades_to_module_prepending_includes( *includes )
-          include( *includes.reverse )
-        end
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToModule.include_block( :include_cascades_to_module_prepending_includes, *includes )
+	  includes_module = anonymous_module_for_append_features( 'CascadesToModule', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -118,16 +116,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	###################################################
 
 	def include_cascades_to_module_prepending_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_append_features( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          include_cascades_to_module_prepending_extends( *extends )
-          extend( *extends.reverse )
-        end
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToModule.extend_block( :include_cascades_to_module_prepending_extends, *extends )
+	  extends_module = anonymous_module_for_append_features( 'CascadesToModule', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	
@@ -146,16 +137,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	###################################################
 
 	def extend_cascades_to_module_prepending_includes( *includes )
-	  unless ( includes -= ancestors ).empty?
-  	  includes_module = anonymous_module_for_extend_object( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          extend_cascades_to_module_prepending_includes( *includes )
-          include( *includes.reverse )
-        end
-      end
-      clusterstack_module { include( includes_module ) }
-    end
+    include_block = ModuleCluster::Define::ModuleClusterCascadesToModule.include_block( :extend_cascades_to_module_prepending_includes, *includes )
+	  includes_module = anonymous_module_for_extend_object( 'CascadesToModule', & include_block )
+    clusterstack_module { include( includes_module ) }
 		return self
 	end
 	
@@ -164,16 +148,9 @@ module ModuleCluster::Define::ModuleClusterCascadesToModule
 	##################################################
 
 	def extend_cascades_to_module_prepending_extends( *extends )
-	  unless ( extends -= eigenclass.ancestors ).empty?
-  	  extends_module = anonymous_module_for_extend_object( 'CascadesToModule' ) do
-        unless is_a?( Class )
-          extend ModuleCluster::Define::ModuleClusterCascadesToModule
-          extend_cascades_to_module_prepending_extends( *extends )
-          extend( *extends.reverse )
-        end
-      end
-      clusterstack_module { include( extends_module ) }
-    end
+    extend_block = ModuleCluster::Define::ModuleClusterCascadesToModule.extend_block( :extend_cascades_to_module_prepending_extends, *extends )
+	  extends_module = anonymous_module_for_extend_object( 'CascadesToModule', & extend_block )
+    clusterstack_module { include( extends_module ) }
 		return self
 	end
 	

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 1
   - 3
-  - 0
-  version: 1.3.0
+  - 1
+  version: 1.3.1
 platform: ruby
 authors: 
 - Asher
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-08-03 00:00:00 -04:00
+date: 2011-08-04 00:00:00 -04:00
 default_executable: 
 dependencies: []