lib/maybe.rb

   1 class Maybe
   2   extend Monad
   3
   4   class << self
   5     alias_method :unit, :new
   6   end
   7
   8   attr_accessor :value
   9
  10   def initialize value
  11     @value = value
  12   end
  13
  14   def bind &f
  15     if value.nil?
  16       self
  17     else
  18       f.call(value)
  19     end
  20   end
  21 end