moosex 0.0.16 → 0.0.17

data/lib/moosex/event.rb

@@ -67,4 +67,4 @@ module MooseX
       end    
     end
   end
-end
+end

data/lib/moosex/version.rb

@@ -1,3 +1,3 @@
 module MooseX
-  VERSION = "0.0.16"
+  VERSION = "0.0.17"
 end

data/moosex.gemspec

@@ -23,5 +23,6 @@ Gem::Specification.new do |spec|
   spec.add_development_dependency "bundler", "~> 1.5"
   spec.add_development_dependency "rake"
   spec.add_development_dependency "rspec"
-  spec.add_development_dependency "simplecov"
+  spec.add_development_dependency "simplecov", ">= 0.8.2"
+  spec.add_development_dependency 'coveralls', '>= 0.7.0'
 end

data/samples/bank_account.rb

@@ -0,0 +1,84 @@
+#
+# This example was ported from 
+# https://metacpan.org/pod/Moose::Cookbook::Basics::BankAccount_MethodModifiersAndSubclassing
+
+require 'moosex'
+
+class BankAccount
+  include MooseX
+
+  has balance: {
+    is: :rw,
+    isa: Integer,
+    default: 0,
+  }
+
+  def deposit(amount)
+    self.balance += amount
+  end
+
+  def withdraw(amount)
+    current_balance = self.balance 
+
+    raise "Acount overdrawn" if amount > current_balance
+
+    self.balance= current_balance - amount
+
+  end
+end
+
+ba = BankAccount.new(balance: 100)
+
+ba.deposit(50)
+
+puts ba.balance # should be 150
+
+ba.withdraw(70) 
+
+puts ba.balance # should be 80
+
+begin
+  ba.withdraw(999)
+rescue =>e
+  puts "can't withdraw 999: #{e}"
+end
+
+class CheckingAccount < BankAccount
+ 
+  has overdraft_account: {
+    is: :rw, 
+    isa: BankAccount, 
+    predicate: true,
+    handles: { 
+      withdraw_from_overdraft_account: :withdraw
+    },
+  }
+
+  before(:withdraw) do |account, amount|
+    overdraft_amount = amount - account.balance
+
+    if account.has_overdraft_account? && overdraft_amount > 0
+
+      account.withdraw_from_overdraft_account( overdraft_amount )
+
+      account.deposit(overdraft_amount )
+
+    end
+  end
+
+end
+
+ba = BankAccount.new(balance: 1000)
+ca1 = CheckingAccount.new(balance: 1000, overdraft_account: ba)
+ca2 = CheckingAccount.new(balance: 1000)
+
+ca1.withdraw(1500)
+
+puts ca1.balance # should print 0
+puts ba.balance # should print 500
+
+begin
+  ca2.withdraw(1500)
+rescue => e
+  puts "can't withdraw 1500: #{e}"
+end

data/samples/binary_tree.rb

@@ -0,0 +1,82 @@
+#
+# This example was ported from
+# https://metacpan.org/pod/Moose::Cookbook::Basics::BinaryTree_BuilderAndLazyBuild
+#
+# What is a Binary Tree?
+# http://en.wikipedia.org/wiki/Binary_treehttp://en.wikipedia.org/wiki/Binary_tree
+
+require 'moosex'
+
+class BinaryTree
+  include MooseX
+
+  has node: {
+    is: :rw,
+    predicate: :full?,          # full? indicate there is a value
+  }
+
+  has parent: { 
+    is: :rw,
+    isa: BinaryTree,
+    predicate: true,            # will inject has_parent? 
+  }
+
+  has [ :left, :right ], {
+    is: :rw,
+    lazy: true,
+    isa: BinaryTree,
+    predicate: true,            # will inject has_left? has_right?
+    builder: :build_child_tree,
+  }
+  
+  def build_child_tree
+    BinaryTree.new( parent: self )
+  end
+
+  before(:left=, :right=) do |this, tree|
+    tree.parent= this
+  end
+
+  def <<(value)
+    if ! full?
+     self.node= value     # <= here is ambiguous, without self., if it is 
+    elsif (value > node ) # method or an assignment to a local variable! 
+      left << value
+    else
+      right << value
+    end
+  end
+
+  def to_s
+    return "?" unless full?
+    "{#{left} <= #{node} => #{right}}"
+  end
+end
+
+bt = BinaryTree.new()
+
+bt << 4   # 1st node
+bt << 8   # 2nd node, to the left of 4
+bt << 1   # 3rd node, to the right if 4
+bt.left.right = BinaryTree.new(node: 7)
+
+puts "bt.node=#{bt.node}, bt.left.parent.node=#{bt.left.parent.node}"
+puts "bt.left.right.parent.node=#{bt.left.right.parent.node}"
+puts ""
+puts ""
+puts "#{bt}"
+
+puts <<EOF
+
+# this example will print
+# {{? <= 8 => {? <= 7 => ?}} <= 4 => {? <= 1 => ?}}
+# 
+# this is the equivalent to this tree
+#
+#      4
+#   8     1
+#  ? 7   ? ?
+#
+# have fun :)
+EOF
+

data/samples/events.rb

@@ -1,3 +1,7 @@
+#
+# This example was ported from
+# http://search.cpan.org/~winter/MooseX-Event-v0.2.0/lib/MooseX/Event.pm
+
 require 'moosex'
 require 'moosex/event'
 
@@ -37,4 +41,4 @@ ep.on_pong do |obj, message|
 end  
 
 ep.ping   # will print "receive ping!"
-ep.pong 1 # will print "receive pong!"
+ep.pong 1 # will print "receive pong!"

data/samples/human.rb

@@ -0,0 +1,48 @@
+#
+# This example was ported from
+# https://metacpan.org/pod/Moose::Cookbook::Basics::Genome_OverloadingSubtypesAndCoercion
+
+require 'moosex'
+require 'moosex/types'
+
+class Human
+  include MooseX
+  include MooseX::Types
+
+  has sex: {
+    is: :rw,
+    isa: isEnum(:male, :female),
+    required: true,
+  }
+
+  has [:mother, :father], {
+    is: :rw,
+    isa: Human,
+  }
+
+  def +(partner)
+    raise "ops" if self.sex.eql?(partner.sex)
+
+    mother, father = (self.sex === :female)? [self, partner] : [partner, self]
+
+    sex = [:male, :female].shuffle.shift
+
+    Human.new(sex: sex, mother: mother, father: father)
+  end
+end
+
+adam    = Human.new( sex: :male )
+eve     = Human.new( sex: :female )
+lilith  = Human.new( sex: :female )
+
+childs = [] 
+childs << adam + eve
+childs << eve + adam
+
+puts childs.inspect
+
+begin
+  eve + lilith
+rescue => e
+  p e
+end

data/samples/point.rb

@@ -1,3 +1,7 @@
+#
+# This example was ported from
+# https://metacpan.org/pod/Moose::Cookbook::Basics::Point_AttributesAndSubclassing 
+
 require 'moosex'
 
 class Point
@@ -56,4 +60,4 @@ p1.clear!
 p3.clear!
 
 puts ">> clear"
-puts p1, p3
+puts p1, p3

data/samples/roles.rb

@@ -1,8 +1,11 @@
-require 'moosex'
+#
+# This example was ported from
+# https://metacpan.org/pod/Moose::Cookbook::Roles::Comparable_CodeReuse
 
+require 'moosex'
 
 module Eq
-	include MooseX.disable_warnings()
+	include MooseX.init( warnings: false)
 
 	requires :equal
 
@@ -20,7 +23,7 @@ end
 class Currency
 	include Valuable
 	include Eq  # will warn unless disable_warnings was called.
-                # to avoid warnings, you should include after  
+              # to avoid warnings, you should include after  
 	            # define all required modules,
 
 	def equal(other)
@@ -54,10 +57,14 @@ c1 = Currency.new( value: 12 )
 c2 = Currency.new( value: 12 )
 c3 = Currency.new( value: 24 )
 
-c1.equal(c2) # true
-c1.equal(c3) # false
+p c1.equal(c2) # true
+p c1.equal(c3) # false
 
-Comparator.new(compare_to: c1).no_equal(c2) # false
-Comparator.new(compare_to: c1).no_equal(c3) # true
+p Comparator.new(compare_to: c1).no_equal(c2) # false
+p Comparator.new(compare_to: c1).no_equal(c3) # true
 
-WrongClass.new(one: 1, two: 2) # will raise exception
+begin
+  WrongClass.new(one: 1, two: 2) # will raise exception
+rescue => e
+  puts "will raise exception #{e}"
+end

data/spec/baserole_spec.rb

@@ -171,4 +171,4 @@ describe RoleTest::AlienX do
 		a.race.should == :borg
 		a.x.should == -1
 	end
-end	
+end	

data/spec/baz_spec.rb

@@ -83,4 +83,4 @@ describe "Baz" do
     baz.has_boom?.should be_false
     baz.boom.should be_nil
   end   
-end
+end

data/spec/build_spec.rb

@@ -20,4 +20,4 @@ describe "BuildExample" do
 			BuildExample.new(x: 0, y: 0)
 			}.to raise_error(/invalid: you should use x != y/)
 	end
-end
+end

data/spec/coerce_spec.rb

@@ -45,3 +45,37 @@ describe "CoerceTest" do
 		ct.attribute_lazy.should == 2048
 	end
 end
+=begin
+require 'moosex/types'
+
+class CoerceTest2
+  include MooseX
+  include MooseX::Types
+
+  has a: { is: :rw, coerce: :to_i }                   # if respond_to? then coerce
+  has b: { is: :rw, coerce: { to_i: true } }          # always coerce
+  has c: { is: :rw, coerce: { to_i: false} }          # if respond_to? then coerce 
+  has d: { is: :rw, coerce: [ :to_s, :to_string ] }   # try to apply one of
+  has e: { is: :rw, coerce: [                         # if respond_to? then coerce via method/lambda
+    {  to_s: lambda{|x| x.to_s.to_sym } },            # can add more, will be evaluated in order
+    {  to_sym: :to_sym  },
+   ] 
+  }
+  has f: { is: :rw, coerce: [                         # should accept one array of 
+       { String => lambda{|x| x.to_sym } },           # type => coerce
+       { Object => lambda{|x| x.to_s } },
+    ]
+  }
+  has g: { is: :rw, coerce: { String => :to_sym } }   # should accept one pair
+  has h: { is: :rw, coerce: {                         # should accept one type validator
+    isArray(String) => lambda{|obj| obj.join(",") } 
+    }
+  }  
+  has i: {is: :rw, isa: isString(format: /\w+:\w+/) } # validator with autocoerce!
+
+end
+
+describe CoerceTest2 do
+
+end
+=end

data/spec/complex_type_spec.rb

@@ -30,4 +30,4 @@ describe "SuperTypes" do
 		}.to raise_error(MooseX::Types::TypeCheckError,
 			"isa check for field x: AnyOf Check violation: caused by [Constant violation: value '[1]' (Array) is not '1' (Fixnum), Maybe violation: caused by AnyOf Check violation: caused by [Type violation: value '[1]' (Array) is not an instance of [Type Integer], Constant violation: value '[1]' (Array) is not '' (NilClass)], Array violation: caused by hasMethods violation: object 1 (Fixnum) should implement method baz, Enum Check violation: value '[1]' (Array) is not [:foo, :bar]]")
 	end
-end
+end

data/spec/lazy_spec.rb

@@ -123,4 +123,4 @@ describe "LazyFox" do
 		end
 		l.last_lazy_attr.should be_zero
 	end
-end
+end

data/spec/lol_spec.rb

@@ -39,4 +39,4 @@ describe "Lol" do
 		lol.desintegrate_c
 		lol.can_haz_c?.should be_false
 	end
-end
+end

data/spec/moosex_spec.rb

@@ -3,6 +3,15 @@ require 'moosex'
 
 class A
 	include MooseX
+
+	has :foo
+
+	has :bar, { doc: "bar..."}
+end
+
+class B < A
+
+	has :bar, { doc: "new Bar... ", override: true }
 end
 
 describe "MooseX" do
@@ -14,4 +23,18 @@ describe "MooseX" do
 		a = A.new
 		a.is_a?(A).should be_true
 	end
-end
+
+	it "A should has an attribute foo" do
+		a = A.new(foo: 1)
+		a.foo.should == 1
+		a.foo = 6
+		a.foo.should == 6
+	end
+
+	it "B should has an attribute foo" do
+		a = B.new(foo: 1)
+		a.foo.should == 1
+		a.foo = 6
+		a.foo.should == 6
+	end	
+end

data/spec/point_spec.rb

@@ -114,6 +114,7 @@ class Point3D < Point
 		is: :rw,      # Redefine attribute
 		isa: String,  # should be String
 		default: "5", # default value is "5" (constant)
+		override: true, # mandatory, or it will raise exception
 	}
 
 	has z: {

data/spec/proxy_spec.rb

@@ -203,4 +203,4 @@ describe "ProxyToTargetUsingClass" do
     p.target.method_y(1,2,3).should == 6
     p.method_y(1,2,3).should == 6
   end   
-end
+end

data/spec/role_spec.rb

@@ -211,4 +211,4 @@ describe "AfterBefore::Undertest2" do
 		u = AfterBefore::Undertest2.new(logger: logger)
 		u.say(1).should == 6 # 1 -> 1+1 -> 2*2 -> 4+2
 	end
-end 
+end